Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
ВнизСписок каталогов диска Найти похожие ветки
← →
Пубертанец (2003-02-27 15:29) [0]Почему нижеследующая процедура возвращает и обычные файлы, ведь по идее должны быть только каталоги?
Кстати как сделать ее рекурсивной, чтобы получать и подкаталоги тоже?
procedure TForm1.SearchBlea(Path: string);
var
SR: TSearchRec;
begin
if (FindFirst(Path+"\*.*", faDirectory, SR) = 0) then begin
repeat
List.Items.Add(Path+"\"+SR.Name);
until (FindNext(SR) <> 0);
FindClose(SR);
end;
end;
← →
han_malign (2003-02-27 15:43) [1]The Attr parameter specifies the special files to include in addition to all normal files.
надо проверять ((SR.Attr and faDirectory)<>0) ручками
← →
Palladin (2003-02-27 16:08) [2]
> Пубертанец (27.02.03 15:29)
разве ты не знаешь что такое рекурсия?
в твоем случае это вызов процедуры самой себя...
← →
Anatoly Podgoretsky (2003-02-27 16:18) [3]Пубертанец (27.02.03 15:29)
Твоя идея не верная, а документацию видимо принципиально не читаешь.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c