Форум: "WinAPI";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизПоиск файлов Найти похожие ветки
← →
Ig (2001-11-17 19:35) [0]Мне нужно перебрать все файлы на диске.
Написал процедуру, но работает некорректно. Помогите найти ошибку.
Procedure FindFiles(start:string);
var Find:Tsearchrec;found:integer;
begin
found:=FindFirst(start+("\"),FaAnyfile,Find);
while found=0 do begin
if (find.Attr<>faDirectory)and(find.Name[1]<>".") then
RichEdit1.Lines.Add(find.name)
else if find.Name[1]<>"." then findFiles(start+"\"+find.name);
found:=findnext(find);
end;
findclose(find);
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c