Почему не работает рекурсия?

← →
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

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