Einzelnen Beitrag anzeigen

Schwedenbitter

Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Prüfen ob Thread noch läuft

  Alt 25. Jan 2007, 08:32
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.
Alex Winzer
  Mit Zitat antworten Zitat