| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск-запись [Delphi, Windows]

lamachok ©   (2002-10-22 20:08:00) 

значит процедура ищет все файлы записывает туда инфу
var f:thandle;
................
procedure FindFile(Dir:String);
Var SR:TSearchRec;
FindRes:Integer;
const text="11111111";
begin
FindRes:=FindFirst(Dir+"*.*",faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and
((SR.Name=".")or(SR.Name="..")) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then begin
FindFile(Dir+SR.Name+"\");
FindRes:=FindNext(SR);
Continue;
end;
f:=filecreate(dir+sr.Name);//И ВОТ ВЫДАЕТ ошибку 70
filewrite(f,text,sizeof(text)+11);
fileclose(f);
FindRes:=FindNext(SR);
end;
FindClose(SR);
end;
...................
FindFile("D:\2\");
кароче не понимает помогите

---

Vladimir Kladov   (2002-10-24 15:38:00) [1]

FindFirst - это из SysUtils.
Будьте проще.

var DL: PDirList; I: integer; F: THandle;

DL := NewDirList( Dir, "*.*", FILE_ATTRIBUTE_NORMAL );
for I := 0 DL.Count-1 do
begin
F := FileCreate( ... );
FileWrite( F, ... );
FileClose( F );
end;
DL.Free;

---

lamachok   (2002-10-23 23:03:00) [2]

нет я зделал по другому
assignfile(f,"111.txt");
Rewrite(f);
writeln(f,"geeeeeeeeeeeee");
Closefile(f);

---

Gandalf   (2002-10-23 20:58:00) [3]

>кароче не понимает помогите
xHelpGen->kol_pas.htm#File and directory routines
там все есть, или тебе опять код переписать?

---

Наверх