Deutsches Lazarusforum

Sehr interessant....

Das dauert immer noch ärgerlich lange.

Da ich ja innerhalb der FindFirst und FindNext Schleife mit application.processmessages die Ausführung des Timers erzwinge, habe ich mal den Timer von 500ms auf 1000ms gesetzt.
Das bringt ein ca. 20% schnelleres Ergebnis. Längere Zeiten ...

Zu erwähnen wäre noch das ich vor Jahren eigentlich das Problem mit Delphi 5 und Delphi 2007 gelöst hatte(allerdings mit irgendeiner spezial LIB von Torrys).
Damals haben solche Suchen nie länger als 5-10 Sekunden gedauert, trotz Timer interrupt.

Kann natürlich sein, das damals auch wesentlich ...

@ Mathias:

Diesen Link hatte ich auch gefunden, aber es gibt andere die ähnlich funktionieren, da habe ich mich bedient.

@ruewa:


Sogar gemessen.

Bei der Anpassung der Routine an meine Zwecke habe ich ich sowohl mir der manuellen Routine, als auch mit findAllFiles experimentiert.

1. PC mit HD ...

Ja, wie oben bereits erwähnt....

Habe FindAllFiles jetzt mit aus dem Net für mich angepasste Routine nachgebildet. Timer geht jetzt wie gewünscht.
Interessant: Die "manuelle" Variante ist schneller als FindAllFiles...gut zu Wissen.

Dank ans Forum

Vielen Dank für die schnelle Antwort.

Ja, habe ich mir schon gedacht, ist aber ein ganz schöner Aufwand für mein Vorhaben.

Ich entnehme deiner Antwort, das der Timer kein echter (Interrupt)Timer ist und das Ganze so nicht lösbar ist.

Also werde ich wohl leider eine Alternative zu FindAllFiles ...

Hallo ans Forum.

Ich benutze Lazarus 1.2.6

Um diverse Laufwerke nach bestimmten Files zu durchsuchen verwende ich die Funktion FindAllFiles.
Das funktioniert auch alles gut.

Werden allerdings größere HDs durchsucht, die dann ein Ergebnis von einigen Tausend Files ergeben dauert
das natürlich ...