Prüfen ob Thread noch läuft

**Schwedenbitter**

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?

zusammenfalten · markieren

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.

Prüfen ob Thread noch läuft

Re: Prüfen ob Thread noch läuft

Forumregeln