WaitForMultipleObjects passt hier nicht so ganz, da der Aufruf den Hauptthread und damit das Forumlar blockiert. Wie Uwe in #2 schon erwähnt hat, würde ich das auch mit dem OnTerminate Ereignis umsetzen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure ButtonStartClick;
begin
  StartThreads;
end;

procedure StartThreads;
begin
  if ActiveThreads <> 0 then
    Exit; // falls noch Threads laufen, keine neuen starten
  ActiveThreads := 4; // Anzahl laufender Threads setzen
  for i := 1 to ActiveThreads do
    TMyThread.Create.OnTerminate := OnThreadTerminate; // Threads starten und Event setzen
end;

procedure OnThreadTerminate;
begin
  Dec(ActiveThreads); // Anzahl laufender Threads anpassen
  if ActiveThreads = 0 then // falls das der letzte von den 4 Threads war...
    StartThreads; // ...nächsten 4 Threads starten
end;

Wenn du dann noch FreeOnTerminate aller Threads auf true setzt, brauchst du dich auch nicht um die Freigabe der Threads zu kümmern.

Zitat von Björn Ole:

markieren

Delphi-Quellcode:

procedure OnThreadTerminate;
begin
  Dec(ActiveThreads); // Anzahl laufender Threads anpassen
  if ActiveThreads = 0 then // falls das der letzte von den 4 Threads war...
    StartThreads; // ...nächsten 4 Threads starten
end;

So schaut das aber noch stark nach Race Condition aus. Problem ist, dass das Dekrementieren von ActiveThreads nicht atomar ist. Wenn jetzt mehrere Threads "gleichzeitig" fertig werden und "gleichzeitig" das Dekrementieren ausführen, kann es passieren, dass ActiveThreads nie 0 wird...

@Björn:
Wirklich ausgezeichnete Idee, den Start neuer Threads so zu lösen.
Vielen Dank soweit!!

@patti:
Hast du einen Vorschlag, wie man das lösen könnte? Vielleicht ein Pendant zu Critical Sections?

Hannes

Das OnTerminate Event der TThread Klasse wird im Kontext des Hauptthreads aufgerufen. Von daher stellt das kein Problem dar.

Oh stimmt, hätte ich doch vorher mal in die Hilfe geschaut...

Zitat:

The OnTerminate event handler is called in the context of the main thread, which means methods and properties can be called freely.

Da hab ich wohl etwas zu schnell reagiert...

[ot]Steht das wirklich so in der Hilfe? Ich hab nicht nachgeschaut, aber das ist ja eine 1zu1 Übersetzung. [/ot]

Jupp, gerade mit Hilfe der Delphi-Referenz gefunden:

http://docs.embarcadero.com/products...Terminate.html ("Delphi 2010 Wiki")

So, an dieser Stelle möchte ich mich ganz herzlich bei euch für eure Mühe und Geduld, v.a. aber für euren Einfallsreichtum bedanken; ihr habt mir ein ganzen Stück weitergeholfen, sodass nun die Fertigstellung des besagten Programmes in greifbare Nähe rückt. Ein riesiges Dankeschön euch allen!

Liebe Grüße

Hannes