Rekurzivna pretraga

Code:

var
  FindResult: integer;
  SearchRec : TSearchRec;
begin
...
  FindResult := FindFirst(Path + '*.*', faAnyFile - faDirectory, SearchRec);
  while FindResult = 0 do
   begin
     //radis nesto sa fajlom SearchRec.Name
     FindResult := FindNext(SearchRec);
   end;
...
end;

Code:

procedure FindFiles(const Path, FileExt : String);
var
  SearchRec : TSearchRec;
begin
  If FindFirst(Path + FileExt, faAnyFile - faDirectory, SearchRec) = 0 Then
    repeat
      // Pronadjen fajl koji zadovoljava kriterijme (putanja = Path + SearchRec.Name)
    until FindNext(SearchRec) <> 0;

  If FindFirst(Path + '*.*', faDirectory, SearchRec) = 0 Then
    repeat
      If (SearchRec.Attr and faDirectory <> 0) and
         (SearchRec.Name <> '.') and
         (SearchRec.Name <> '..') Then
        FindFiles(Path + SearchRec.Name + '\', FileExt);
    until FindNext(SearchRec) <> 0;

  FindClose(SearchRec);
end;