Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.17;
Скачать: CL | DM;

Вниз

Поиск файлов   Найти похожие ветки 

 
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;


 
Anatoly Podgoretsky ©   (2001-11-17 23:27) [1]

if (find.Attr and faDirectory) <> faDirectory
then ...
else if (find.Name <> ".") and (find.Name <> "..") then ...

FindClose надо выполнять только в том случае, если первый Found = 0


 
panov ©   (2001-11-18 01:41) [2]

found:=FindFirst(start+("\"),FaAnyfile,Find);
вместо этого надо
found:=FindFirst(start+( "\*.*"),FaAnyfile,Find);
Это плюс к <Anatoly Podgoretsky © (17.11.01 23:27)>


 
Anatoly Podgoretsky ©   (2001-11-18 16:03) [3]

Да я это упустил



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-52594
Yuri Btr
2001-12-29 10:40
2002.01.17
Помогите пожалуйста с импортом DLL


1-52542
AVL
2001-12-21 11:32
2002.01.17
Вопрос по FastReport 4.2


1-52525
Beat
2001-12-27 10:21
2002.01.17
TIcon 16x16 а не 32x32?


3-52505
Кнопка
2001-12-09 15:07
2002.01.17
Поиск в базе


3-52518
kva
2001-12-17 13:47
2002.01.17
Создать временную таблицу со структурой заданной таблицы