TdfFindFile - Komponente um Dateien rekursiv zu suchen

[DanielF]

http://www.fontes.biz/daniel/findfile.gif

Diese Komponente wurde von Howard Harvey entwickelt, dann von Marcus Luk erweitert und verbessert und ich habe zu guter Letzt alle geschwindigkeitsraubenden Funktionen durch schnellst mögliche ersetzt und hie und da etwas erweitert. So dauert das Sortieren von ein paar 100.000 Dateien nach Dateigröße nur einen Bruchteil von Sekunden (dank QuickSort) und die verschiedenen Filter werden mittels Binärer Suche überprüft.

Um beispielsweise alle JPEGs, BMPs, GIFs und PNGs auf meiner Festplatte (ca. 80.000 Dateien) zu finden und nach Größe zu sortieren, werden nicht einmal 10 Sekunden benötigt.

Alle weiteren Informationen und die Dokumentation (leider nur in Englisch) sind im Archiv enthalten.

DOWNLOAD (10kb)

Dokumentation (5kb)

Gruß
Daniel

Bitte mailt mir eure Erfahrungen mit dieser Komponente.

ps: Damit das Programm während einer langen Suche nicht "einfriert", empfehle ich ähnlichen Code in das OnNewPath-Ereignis zu schreiben:

Code:

if (gettickcount - oldtime)>100 then begin
 application.ProcessMessages;
 label1.Caption := NewPath;
 oldtime := gettickcount;
end;