Mehrere Threads gleichzeitig...

[Heffalump]

Ich würde es so machen:

Delphi-Quellcode:

procedure TBeispielForm.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to Cnt do
    begin
    if Thr[lvCounter] <> nil then
      begin
      Thr[i].Terminate;
      Thr[i].WaitFor;
      Thr[i].Free;
      Thr[i]:=nil;
      end;
    end;
end;

Im Thread die Eigenschaft Terminated auswerten und die Bearbeitung beenden.

[glkgereon]

Zitat:

Zitat von jfheins

Oder du stellst FreeOnTerminate auf True und dann zum ausmachen einfach Thread.Terminate;
(im thread natürlich ein while not Terminated do ... ;) )

Also so geht es :)

man muss offensichtlich
while not Terminated do
machen und nicht
while not BR do
und BR dann im OnTerminate auf True setzen...das geht irgendwie nicht :(

[jfheins]

Genau ... was ist BR ?

Also zusammenfassend:

Delphi-Quellcode:

Thr: array [1..Cnt] of TMyThread; 

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i:=1 to Cnt do 
    begin 
      Thr[i] := TMyThread.Create(True); 
      Thr[i].FreeOnTerminate := True; 
      // Nochwas machen
      Thr[i].Resume; 
    end; 
end;

  for i := 1 to Cnt do 
    begin 
    if Thr[i] <> nil then 
      begin 
        Thr[i].Terminate;  
        Thr[i] := nil; 
      end; 
    end;

Das wärs, oder ?

[Heffalump]

FreeOnTerminate ist zwar eine Möglichkeit, jedoch nicht ganz ungefährlich. Dadurch verliehrt man die Kontrolle, ob bzw. wann der Thread beendet ist. Lässt man diese Procedure zum Beenden der Threads beim Beenden des Programms oder eines Dienstes laufen, kann das zu unschönen Effekten führen, wenn die Threads noch nicht beendet sind.