1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

for l := PCDirectoryListBox.ItemIndex  to ItemsCount  do     //Laufe durch alle Untergeordneten Ordner
begin
 path := PCDirectoryListBox.GetItemPath(l) + '\*.par' + #0;  //setze Pfad gemaess 'l'
 if FindFirst(path,faAnyFile,search) = 0 then repeat   //finde erste Datei
  date_and_time := FileDateToDateTime(search.Time);
  i := 0;
  part_string := '     ';
  while search.Name[i] <> '.' do Inc(i);
  k := 4;
  for j := i-1 downto 1 do
  begin
   part_string[k] := search.Name[j];
   Dec(k);
  end;
 //addiere gefundene Datei zu einer ListBox
 PCListBox.items.add(part_string+' '+DateToStr(Trunc(date_and_time))+' '+TimeToStr(date_and_time));
  file_list[PCListBox.items.count-1].search_rec := search;
  file_list[PCListBox.items.count-1].part_id := string_to_part_id(part_string);
  file_list[PClistBox.Items.count-1].Directory := PCDirectoryListbox.GetItemPath(l); //160304lb new line

 until Findnext(search) <> 0; //Suche naechste Datei
 FindClose(search);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  Memo1.Lines.Clear;
  FileListBox1.Clear;

  // Der 'levels' parameter gibt an auf wievielen verzeichniss-ebenen gesucht wird
  // bei -1 werden alle durchsucht
  if DirectoryListBox1.ItemIndex = 0 then filename := DirectoryListBox1.Directory + Edit1.Text
  else filename :=  DirectoryListBox1.Directory + '\' + Edit1.Text;


  n := getDirTreeFiles(filename, FileFoundHandler, [faDirectory, faArchive], 10);  // suche starten

  Memo1.Lines.Add(#13#10 + intToStr(n) + ' items found.');
  edit2.Text := intToStr(n) + ' items found.';                    

1:

n := getDirTreeFiles(filename, FileFoundHandler, [faAnyFile], -1);