schnellere Procedure gesucht

[alzaimar]

Super Hagen. Ich würde aber zwei Korrekturen vornehmen;
Statt:
DoSearch(ExtractFilePath(Path) + '\'); so
DoSearch(ExtractFilePath(Path)); Weil ExtractFilePath schon den letzten Backslash liefert.

Weiterhin eventuell eine klitzekleine kosmetische Korrektur: Der rekursive Aufruf
DoSearch(Path + SR.Name + '\') kann durch
DoSearch(IncludeTrailingPathDelimiter(Path + SR.Name)) ersetzt werden. Ist eigentlich das Gleiche, aber wozu an 3 oder noch mehr Stellen annehmen, das Pfade immer mit einem '\' getrennt werden? Ich versuche, solche Annahmen im Code nicht zu verteilen, sondern, wenns denn geht, zu zentralisieren. Das genau macht 'IncludeTrailingPathDelimiter' bzw. 'IncludeTrailingBackslash', auch wenns eine µs langsamer ist.