Скачать: CL | DM;

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

← →
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 был глобальным объектом, все бы работало... То ли невнимательность (хорошая работа у программиста, не то, что у саперов!), то ли еще чего...

---

← →
Palladin ©   (2003-04-28 01:21) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c