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

Как выйти из цикла?   Найти похожие ветки 

← →
super_alex   (2003-02-07 12:35) [0]

Есть огромный цикл. Есть кнопочка stop. Как выйти из этого цикла при нажатии на кнопочку stop? Просто когда на неё жмёшь, прога ждёт когда кончится цикл, а потом делает то, что прописано в stop.OnClick.

---

← →
Anatoly Podgoretsky ©   (2003-02-07 12:38) [1]

Break выход из цикла

---

← →
Александр С. ©   (2003-02-07 12:40) [2]

Application.ProcessMessages добавлять в теле цикла,
для обработки других сообщений.

---

← →
Palladin ©   (2003-02-07 12:40) [3]

вставь в цикл Application.ProccessMessages
и условие if bStopMe then break;

bStopMe ставишь в False перед циклом
а на событии OnClick кнопки выставляешь его в True

---

← →
super_alex   (2003-02-07 12:40) [4]

Не, Вы не поняли...
Цикл запускается при нажатии на другую кнопочку, а выйти из него надо при нажатии на кнопку stop!

---

← →
super_alex   (2003-02-07 12:43) [5]

А по подробнее можно! Я начинающий программер...

---

← →
Anatoly Podgoretsky ©   (2003-02-07 12:44) [6]

Это ты не понял, Break выход из цикла, как обработать кнопки тебе тоже сказали.
Но если ты считаешь, что все таки не поняли, объясни внятно, так как будто ты разговариваешь с трехлетним ребенком, а не с телепатами.

---

← →
Palladin ©   (2003-02-07 12:45) [7]

блин!
куда уж подробней!!

---

← →
super_alex   (2003-02-07 12:47) [8]

Ладно уже разобрался.
Всем спасибо, за обучение зелёных.

---

← →
Кот Бегемот ©   (2003-02-07 12:49) [9]

Ну штооо - в облом кинуть ламеру пару строчек - дааа ????
procedure TForm1.Button2Click(Sender: TObject);
var
i: cardinal;
begin
Br:=false;
for i := 0 to 100000 do
begin
GroupBox1.Caption:=IntToStr(i);
Application.ProcessMessages();
if Br=True
then begin
GroupBox1.Caption:="Breaked";
break;
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Br:=True;
end;

---

← →
Song ©   (2003-02-07 12:50) [10]

Var FlagStop: Boolean=False;

Procedure TForm1.Button1Click(Sender:TObject);
{ Запуск цикла }
Begin
Repeat
Application.ProcessMessages;
IF FlagStop then Break
Until FlagStop;
End;

Procedure TForm1.Button1Click(Sender:TObject);
{ Кнопка "СТОП" }
Begin
FlagStop:=True;
End;

---

← →
Song ©   (2003-02-07 12:51) [11]

Кстати сравнение нафик не нужно :)

---

← →
Palladin ©   (2003-02-07 13:00) [12]

:)
а я еще и по другому могу
Var FlagStop: Boolean=False;

Procedure TForm1.Button1Click(Sender:TObject);
{ Запуск цикла }
Begin
While not FlagStop do Application.ProcessMessages;
End;

Procedure TForm1.Button1Click(Sender:TObject);
{ Кнопка "СТОП" }
Begin
FlagStop:=True;
End;

---

← →
Sha ©   (2003-02-07 13:04) [13]

2 super_alex (07.02.03 12:47)
Чтобы цикл крутить быстрее, вызывай Application.ProcessMessages пореже, но вызывай.

---

← →
bak ©   (2003-02-07 13:10) [14]

а через таймер ведь тоже можа, а? а через триды? Ж8-)

---

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

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



Память: 0.47 MB
Время: 0.012 c