Не знаю как правильно завершить созданные потоки.
Вот код в котором при нажатии кнопки Button1 создается три потока.
Основной поток
Код:
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
Код:
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.
Вот собственно хочу завершить не все потоки сразу, а выборочно какой-либо из них.
Буду бдагодарен за любую помощь.