Ich würde es so machen:

zusammenfalten · markieren

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.

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

Genau ... was ist BR ?

Also zusammenfassend:

zusammenfalten · markieren

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 ?

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.