Delphi Win32 Applikation schneller machen

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:

markieren

Delphi-Quellcode:

			while( slFiles.Count > 0 ) do

begin

{...}

end;

Hierbei möchte ich noch anmerken, dass mir aufgefallen ist, dass diese Methode merklich langsamer läuft als mit einer ForToDo Schleife. Ich "muss" aber while nehmen, da ich den durchlauf jederzeit mit Break beenden möchte bzw. sich die Anzahl der Elemente in der Liste ändert, wenn jemand eine alternative hat, nur raus damit.

markieren

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;

Das ganze läuft bei einigen Dateien recht gut, aber ich habe da zum Teil 32k Dateien, welche sich in der Liste befinden und das bräuchte zunächst 90 Stunden, was nicht wirklich das Problem ist (Lösung hätte ich schon); sondern vielmehr, dass die Applikation beim laufen dann >90% Auslastung hat, selbst bei niedriger Priorität.

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

vielen Dank
Florian

**marabu**

Hi,

in einer länger laufenden Schleife sollte sich dein Prgramm etwas kooperativer zeigen und ab und zu mit Application.ProcessMessages die Kontrolle an die Nachrichtenschleife zurückgeben.

Nach dem Löschen einer Datei aus deiner Liste berechnset du für alle anderen 1000 Dateien wiederholt den Hash? Cool!

Grüße vom marabu

**Christian Seehase**

Moin Fabian,

ich kann zwar im Moment den Sinn Deiner Konstruktion nicht nachvollziehen, man kann sie auch nur mit for-Schleifen machen:

markieren

Delphi-Quellcode:

			  for iOuter := 0 to slFiles.Count-1 do begin

    for iInner := iOuter+1 to slFiles.Count-1 do begin

    end;

  end;

**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:

markieren

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.

Zitat von Christian Seehase:

man kann sie auch nur mit for-Schleifen machen:

ähm...nein, siehe slFiles.Delete(0);
Mit for Schleifen würde er versuchen auf Elemente zuzugreifen, welche nicht mehr existieren.

Zitat:

Nach dem Löschen einer Datei aus deiner Liste berechnset du für alle anderen 1000 Dateien wiederholt den Hash?

...stimmt *gleich ran mach*

Das mit Application.ProcessMessages habe ich schon, der gepostete Quelltext ist lediglich ein Ausschnitt mit den relevanten Zeilen.

Wenn ich jetzt den Hash z.B. vorberechne, dann dauert halt das Einlesen der Dateinamen nebst Hash etwas länger, dafür aber nur einmal, okay! Aber mich würde interessieren, ob man nicht irgendwie die Auslastung der Applikation gering halten kann, natürlich nicht bei gleicher Geschwindigkeit. Also sprich, sie läuft etwas langsamer, verbraucht dafür aber weniger Prozessorleistung.

vielen Dank
Florian

**Ralf Kaiser**

Zitat von NeoXan:

Zitat von Christian Seehase:

man kann sie auch nur mit for-Schleifen machen:

ähm...nein, siehe slFiles.Delete(0);
Mit for Schleifen würde er versuchen auf Elemente zuzugreifen, welche nicht mehr existieren.

Beim Löschen aus einer LIste mit FOR-Schleife lass die Schleife einfach rückwärts laufen.

markieren

Delphi-Quellcode:

			for i := Liste.Count - 1 downto 0 do begin

  if Bedingung then Delete(i);

end;

Dann kann so etwas nicht mehr passieren.

Ralf

**ste_ett**

Zitat von NeoXan:

Aber mich würde interessieren, ob man nicht irgendwie die Auslastung der Applikation gering halten kann, natürlich nicht bei gleicher Geschwindigkeit. Also sprich, sie läuft etwas langsamer, verbraucht dafür aber weniger Prozessorleistung.

vielen Dank
Florian

Eine Möglichkeit wäre ein
Sleep(x); bei jedem n-ten Durchlauf/jedem neuen Ordner/etc.

**Michael Habbe**

Zitat von NeoXan:

Aber mich würde interessieren, ob man nicht irgendwie die Auslastung der Applikation gering halten kann, natürlich nicht bei gleicher Geschwindigkeit. Also sprich, sie läuft etwas langsamer, verbraucht dafür aber weniger Prozessorleistung.

Nun, bei niedriger Priorität nimmt es sich die CPU-Zeit, die zur Verfügung steht, also quasi die "Leerlaufzeit". Wenn ein Programm die CPU braucht, bekommt Dein Programm halt weniger zugeordnet. Und die Auslastung ist eigentlich nur ein Hinweis darauf, ob Dein Programm zu anspruchsvoll für die CPU ist, oder die CPU Dein Programm locker wegstecken kann. Da fließen natürlich auch noch so Dinge wie RAM- und Festplattengeschwindigkeiten usw. ein. Wenn Dein Programm viel auf der HD wühlt, könnte sich die CPU evtl. "langweilen".

edit:
@st_ett

"sleep" hält das ganze Programm für die Zeitspanne an. D. h. da tut sich dann gar nichts und die Programmlaufzeit verlängert sich entsprechend.

**Christian Seehase**

Moin Florian,

Zitat von NeoXan:

ähm...nein, siehe slFiles.Delete(0);
Mit for Schleifen würde er versuchen auf Elemente zuzugreifen, welche nicht mehr existieren.

dann schau Dir bitte noch einmal die Schleifenkonstruktion an.
Der Startwert der inneren Schleife wird ja immer so gesetzt, dass das erste Element übergangen wird.
Damit spare ich das Löschen ein, und die innere Schleife läuft trotzdem so wie Du es machst.

**JayBee**

Um die CPU-Auslastung deines Programms zu verringern musst du einfach ein anderes Programm starten, welches den Prozessor beansprucht. Dann bekommt dein Programm automatisch weniger "Leistung" zugeteilt. Anders ist das Verringern imho nicht möglich (Wäre ja auch unsinnig - dann "verpufft" Prozessorleistung, obwohl dein Prozess sie gebrauchen könnte).