Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.03 c
14-30078
Clickmaker
2003-02-21 18:12
2003.03.10
Клиент отваливается от DCOM сервера


14-30120
Neox
2003-02-23 11:39
2003.03.10
дискета к книге


1-29857
ЮРИЙ_К
2003-02-28 12:37
2003.03.10
Почему Memo не правильно показывает ДОС-овский файл ??


8-29969
trotski
2002-11-29 20:22
2003.03.10
Какой же я глупый или


1-29869
Павел
2003-02-24 18:30
2003.03.10
Как найти разницу времени?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский