Ordner rekursiv durchsuchen bis zu maximaler Tiefe

[Flodding]

Zitat von sx2008:

Statt dem Parameter InDir:Boolean nimmst du einfach den Parameter Tiefe:integer.
Jedesmal, wenn du rekursiv ein Verzeichnis hinabsteigst wird die Tiefe ums Eins verringert.

Delphi-Quellcode:

// procedure TForm1.FileSearch(const PathName, FileName : string; const InDir : boolean); // alt
procedure TForm1.FileSearch(const PathName, FileName : string; Tiefe:integer); // neu
...
// If not InDir then Exit;  // alt
if Tiefe <= 0 then Exit;  // neu
...
// FileSearch(Path + Rec.Name, FileName, True); // alt
FileSearch(Path + Rec.Name, FileName, Tiefe-1); // neu

das hört sich gut an... werde ich heute probieren

Zitat von Progman:

Ich würde so vorgehen:
Alle Verzeichnisse des Ordners AddOns, die nicht mit "Blizzard_" beginnen, in eine TStringList einlesen und diese dann durchgehen und in jedem dieser Verzeichnisse nach *.toc suchen.

In den "Blizzard_" Ordnern befinden sich keine TOCs, somit werden die bei einer Suche nach TOCs so oder so gefiltert... trotzdem kann man das vorbeugend mit einbauen um die Suche, wenn auch nur wenig, zu verkürzen

Zitat von neo4a:

Die Komponente TFindFile sollte das bieten, was Du suchst. Hier kannst Du nicht nur mit dem Parameter "Filters" schon vieles erschlagen:

werde ich auch suchen, finden und probieren...

Vielen dank nochmal an die guten antworten. Ich meld mich nochmal wenn ich mich entschieden habe wie ichs mach...