[dpj]

Не знаю как правильно завершить созданные потоки.
Вот код в котором при нажатии кнопки Button1 создается три потока.

Основной поток

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

uses th;    procedure TFormMain.Button1Click(Sender: TObject);   var   th: array[0..2] of ThMy;   I: Integer; begin   for I := 0 to 2 do begin     th[i]:= ThMy.Create(true);     th[i].FreeOnTerminate:= false;     th[i].Priority:= tpNormal;     th[i].Start;   end; end;

А вот собственно сам поток TThread

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type   ThMy = class(TThread)   private     Msg: string;     procedure ShowMsg;   protected     procedure Execute; override;   end;    implementation    uses Unit1;    procedure ThMy.Execute;   var   i: Integer; begin   while not Terminated do begin     Inc(i);     Sleep(10);   end; end;

После запуска потока цикл while ожидает Terminated но вот как его послать и при том, что потока 3.
Вот собственно хочу завершить не все потоки сразу, а выборочно какой-либо из них.

Буду бдагодарен за любую помощь.

[AlexSku]

Можно сделать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

type   ThMy = class(TThread)   private     Msg: string;     procedure ShowMsg;   protected     procedure Execute; override;   end;   type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     th: array[0..2] of ThMy;   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure ThMy.Execute;   var   i: Integer; begin   while not Terminated do begin     Inc(i);     Sleep(10);   end;   Synchronize(ShowMsg); end;   procedure ThMy.ShowMsg; begin   ShowMessage('конец'); end;     procedure TForm1.Button1Click(Sender: TObject); var   I: Integer; begin   for I := 0 to 2 do begin     th[i]:= ThMy.Create(true);     th[i].FreeOnTerminate:= false;     th[i].Priority:= tpNormal;     th[i].Resume;   end; end;   procedure TForm1.Button2Click(Sender: TObject); begin   if not Assigned(th[0]) then     ShowMessage('нет потока 0')   else   begin     th[0].Terminate;     th[0]:= nil;   end; end;