Forum: Object-Pascal / Delphi-Language
by wicht,
7. Jan 2008
Dass das aber dann doppelt so lange dauert (so kam es mir bei meinen Versuchen jedenfalls vor) ist aber schon klar, oder?
Du lässt zweimal FindFirst für dich Filtern - besser wäre ein Aufruf, wo du selbst Filterst. Ich würde einfach ein faAnyFile benutzen in einem Durchgang, und dann prüfen, ob es eine Datei ist, oder ein Verzeichnis. In etwa so (lieblos hingeklatscht):
procedure...
Forum: Object-Pascal / Delphi-Language
by wicht,
7. Jan 2008
Hi!
Du hast in deiner Suchfunktion 2 Suchen, d.h. du rufst 2 mal FindFirst mit allem, was dazugehört, auf.
Ich hatte ein ähnliches Problem: Innerhalb einer FindFirst Suche habe ich GetSizeOfFile (oder so ähnlich) von der JCL benutzt - Diese Funktion hat auch ein FindFirst gemacht, was den Ablauf der Suche insgesamt verlangsamte. Klar, das war sowieso überflüssig, wegen TSearchRec.Size. Nach...