Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.30;
Скачать: 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 вся ветка

Текущий архив: 2003.06.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-97684
Tayfun
2003-06-17 16:35
2003.06.30
подскажите как добавлять и извлекать ресурсы из EXE файла?


7-97913
BaRToV
2003-04-13 13:13
2003.06.30
CD-Rom и все что с ним связано...


14-97792
Кен
2003-06-09 02:11
2003.06.30
Как получить инфразвук в домашних условиях. Хочу послушать его.


7-97909
LikeLamer
2003-04-21 10:24
2003.06.30
Вызов свойства компонента из его контекстного меню


1-97666
Noy
2003-06-17 13:26
2003.06.30
Запуск приложения