Hallo zusammen!

Ich habe eine Prozedur, die eine Liste abarbeitet. Würde gerne diese Liste schneller abarbeiten und die prozedur als Threads nebeneinander laufen lassen. Ist das so ohne weiteres möglich? Ich möchte die Anzahl der Threads auf 3 begrenzen.

Habe leider noch nie sonst mit Threads arbeiten müssen, bin daher sehr unerfahren was diese Thematik angeht.

Sag schonmal danke für eure Hilfe!

Peter

Du kannst das ganze über einen TThread laufen lassen.

markieren

Delphi-Quellcode:

var
  Thread:TThread;
begin
  Thread:=TThread.Create(True);
  Thread.OnExecute:=deineProzedur;
  Thread.resume;
end;

Bedenke allerings das deine Prozedur Threadsicher sein muss! Schreibt deine Prozedur also sowas wie ListView.items.add(''), so musst du das umschreiben in Thread.Synchronize(Thread,Thread.addToListView('') ) oder sowas...

Wenn du tatsächlich ein ListView abarbeitest (oder ähnliches) kann ich dir noch raten, die Liste während des Vorgangs unsichtbar (visible := false) zu machen - auf diese Weise erziehle ich eine enorme Verbesserung im Punkt Geschwindigkeit.

...oder/und zu begin ListView.Items.BeginUpdate und am Schluss ListView.EndUpdate aufrufen...

Also eine Listview habe ich eigentlich nicht.

Die Prozedur läuft in einem Dienst. Wie kann ich denn nun die Anzahl der gleichzeitigen Threads begrenzen? Gibts in einem TThread auch ein "afterwork"-Event oder sowas? Dann könnte ich ja eine Zählervariable nutzen.

Kenne mich leider mit der ganzen Thematik nicht aus.

Peter

Da sich die Threads ja nicht von selbst erstellen sondern Du sie selbst erzeugen musst, kannst Du doch selbst etscheiden, wieviele Threads erzeugt werden. Und das 'afterwork' heisst OnTerminate

Grüße,
Uli

Super, danke. Werde das ganze mal durchtesten und ausprobieren.

Peter

also mir hat folgender Beitrag (und Code) sehr geholen:
http://www.delphipraxis.net/internal...t=workerthread

Damit kannst du einen Pool an Threads verwalten. Die Aufgaben
holen sich die Threads aus einer Liste.

Gruß
Pfoto