Zitat von
alzaimar:
Was ist denn bei dem Code von sirius, wenn man mehrere Threads startet?
Eigentlich sollte es auch mit mehreren Threads funktionieren. Wird einer gestartet, dann erhöht sich der Zähler um 1. Wird einer beendet, dann reduziert er sich wieder um 1. Macht im Ergebnis Null, wenn alle beendet sind. Dabei spielt es keine Rolle, in welcher zeitlichen Abfolge die Threads ablaufen.
Man muss meiner Meinung nach nur dafür sorgen, dass man bei den Terminated-Abfragen vor dem Beenden mitten im Thread auch eins runter zählt. Dann sollte es doch stimmen,
oder?
Delphi-Quellcode:
procedure tmythread.Execute;
begin
inc(running);
{ Thread-Code hier einfügen }
if terminated
then
begin
dec(running);
exit;
end;
{ Thread-Code-Ende }
dec(running);
end;
Denn die Funktion IsRunning prüft nur, ob der Zähler Null ist.