Поиск в подкаталогах

[Mickset]

Всем привет! Что нужно добавить в процедуру, чтобы она искала файлы в подкаталогах?!

procedure ScanDir(StartDir, Mask: String; List: TStrings);
var
SearchRec: TSearchRec;
begin
 if Mask = '' then Mask:= '*.*';
 if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
 if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
 begin
  repeat
   Application.ProcessMessages;
    if (SearchRec.Attr and faDirectory) <> faDirectory then
     List.Add(StartDir + SearchRec.Name)
    else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
     ScanDir(StartDir + SearchRec.Name + '',Mask,List);
   until
    FindNext(SearchRec) <> 0;
   FindClose(SearchRec);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  list: TStrings;
begin 
  list:= TStringList.Create; 
  ScanDir('C:\file\', '*.txt', list);
  Memo1.Lines:= list;
  list.Free;
end;

[mihali4]

Сообщение от Mickset

Что нужно добавить в процедуру, чтобы она искала файлы в подкаталогах?

Рекурсивный вызов самой себя, когда найден каталог.

[Mickset]

Я извиняюсь.. Но не могли бы вы показать Это на коде, а то я ещЕ не очень смыслю в Delphi

[mihali4]

Вводим в строку поиска по форуму "рекурсия" и сразу находим ответ:
http://www.programmersforum.ru/showt...F3%F0%F1%E8%FF

[Mickset]

Не получаетса подправить код... ((

[mutabor]

Да найди готовый, это стандартная процедура.
рекурсивный обход delphi
рекурсивный поиск файлов delphi

[Mickset]

Не .. мне нужен этот код подправить..

[mutabor]

Сообщение от Mickset

Не .. мне нужен этот код подправить..

Так она у тебя и так рекурсивная. Не нужно ничего добавлять.

[Mickset]

Но он не ищет в подкаталогах!

Помогите пожалуйста! Мне очень нужно што бы функция искала файлы в подкаталогах...

[DarkEvil]

ScanDir(StartDir + SearchRec.Name + '',Mask.List);
точка а не запятая