|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: schnellere Procedure gesucht
20. Dez 2005, 08:45
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.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|