Скачать: CL | DM;

поиск-запись   Найти похожие ветки 

← →
lamachok   (2002-10-22 20:08) [0]

значит процедура ищет все файлы записывает туда инфу
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\");
кароче не понимает помогите

---

← →
Gandalf   (2002-10-23 20:58) [1]

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

---

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

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

---

← →
Vladimir Kladov   (2002-10-24 15:38) [3]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c