| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Народ посоветуйте как сделать остановку программы

Новичок1 ©   (2005-09-19 13:00:00) 

Например есть кнопка при ее нажатии запускается процедура обработки нажатия этой кнопки, ну программа работает в цикле крутится , как сделать чтобы при нажатии на другую кнопку (или на эту же лучьше ) программа выходила из глухого цикла?

---

Новичок1   (2005-09-19 13:23:00) [1]

Вроде понял большое спасибо.

---

TUser   (2005-09-19 13:09:00) [2]

1.  Вытащить цикл в отд. поток и
procedure ButtonOnClick()
begin
 Thread1.Terminate;
end;

2.
Flag:=false;
for i:= .... do
begin
 if Flag then break;
 dowork;
 if i mod 100 = 0 then
   Allpication.ProcessMessages;
end;

procedure BtnOnClick;
begn
Flag:=true;
end;

---

Наверх