Как выйти из цикла?

← →
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;

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

:)
а я еще и по другому могу
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;

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

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

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