Delphi Win32 Applikation schneller machen

[Michael Habbe]

Zitat von NeoXan:

Hallo,

ich habe folgendes "Problem". Zu erst durchsuche ich diverse Verzeichnisse rekursiv und baue mir eine Liste aus den Dateien vom Typ TStringlist. Dann gehe ich wie folgt diese Liste durch:

Delphi-Quellcode:

cFile vom Typ String
while( slFiles.Count > 0 ) do
begin
 cFile := slFiles[0];
 slFiles.Delete(0);
 for i:=0 to slFiles.Count-1 do
  { Hier wird der Hash der Datei bei slFiles[i] berechnet }
end;

Wie könnte ich die Auslastung der Applikation gering halten.

Beim Durchlaufen der Festplatte und beim Hinzufügen der Dateien solltest Du mit der Methode "AddObject" gleich den Hash der Datei mit in die StringList schreiben. So brauchst Du die Liste nur einmal durchgehen, und kannst anschließend nicht mehr vorhandene Dateien rausnehmen ohne erneut den Hash zu berechnen.