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

Вниз

Почему не работает рекурсия?   Найти похожие ветки 

 
anod ©   (2002-08-03 16:59) [0]

Пытаюсь найти файлы в папке, находит только те которые в dir:
procedure TForm2.ScanDir(dir: string; var list:Tstrings);
var rc: integer;
sr: TSearchRec;
begin
rc:=findFirst(dir + "*.mp3", faAnyFile, sr);
while rc=0 do begin
if ((sr.Attr and faDirectory)>0) and (sr.name <> ".") and (sr.name <> "..")
then scanDir(dir+sr.name,list) // смотрим подпапки
else list.Add(dir+sr.name);
rc:=findNext(sr);
end;
FindClose(sr);
end;


 
Dimka Maslov ©   (2002-08-03 17:04) [1]

Дело в том, что данный код ищет всё что с расширением mp3. А подкаталоги у тебя неверняка без расширения отсюда и проблема.
Попробуй вот этот пример:

http://delphibase.endimus.com/?action=viewfunc&topic=fileops&id=10046



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
1-48021
LVG
2002-08-03 09:17
2002.08.15
Вопрос по TreeView


1-48177
Дядя Будда
2002-08-02 15:15
2002.08.15
Access violation at address 090C8891 in module RLINK32.DLL


1-48103
Link
2002-08-05 13:20
2002.08.15
Указатель в виде песочных часов


3-47923
Afreet
2002-07-25 10:30
2002.08.15
Уважаемые МАСТЕРА!. Помогите построить SQL запрос


3-47949
Сергей2
2002-07-24 21:25
2002.08.15
Вопрос о БД