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

Вниз

Список каталогов диска   Найти похожие ветки 

 
Пубертанец   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
8-29967
New Man
2002-11-27 19:40
2003.03.10
Какой частоты дискретизации достаточно для работы с телефонной ли


14-30124
sancho
2003-02-23 12:04
2003.03.10
Помогите!!!


1-29825
Unk
2003-02-27 16:47
2003.03.10
DLL, MDI, interfaces


3-29753
Behemoth
2003-02-18 09:36
2003.03.10
Можно ли делать SQL запросы из потока?


1-29949
smok_er
2003-02-26 12:35
2003.03.10
AlphaBlend...