Работа с потоком

← →
Salvator © (2003-04-27 21:51) [0]

Уважаемые мастера!! Пишу следующий код:

Поток:

Procedure Clock.UpdateLabel;
begin
Form1.Label1.Caption:=IntToStr(chet);
end;

procedure Clock.Execute;
begin
FreeOnTerminate:=True;
chet:=20;
while chet>0 do
begin
chet:=chet-1;
Synchronize(UpdateLabel);
Sleep(1000);
if terminated then exit;
end;
Exit;
end;

Кнопка "Остановить поток":

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Timer:Clock;
begin
Timer.Terminate;
end;

Поток не останавливается!! В чем проблема?

← →
Palladin © (2003-04-27 22:56) [1]

проблемы нет
он останавливается

← →
Palladin © (2003-04-27 22:57) [2]

упс
при ближайшем рассмотрении твоего кода вдруг увидел...

timer:clock в BitBnt1Click

как это понимать? где ты создаешь поток тогда?

← →
DrPass © (2003-04-28 01:11) [3]

А никогда не создает. Вот если бы Timer был глобальным объектом, все бы работало... То ли невнимательность (хорошая работа у программиста, не то, что у саперов!), то ли еще чего...

не сразу пришел опыт к молодому саперу

Работа с потоком Найти похожие ветки