прерывание цикла

← →
eraser (2002-01-15 14:38) [0]

как мне лучше из основной программы прервать непрерывный цикл по кнопке, а то даже форму не закрыть.

← →
MBo (2002-01-15 14:45) [1]

вставь в цикл
Application.ProcessMessages;

← →
eraser (2002-01-15 14:47) [2]

там уже такое есть кнопка X нажимается но цикл продолжается и форма не закрывается

← →
Slava (2002-01-15 14:50) [3]

В цикле проверяй какую-нибудь глобальную переменную, а
при нажатии на кнопку просто меняй её значение

← →
Vitaly (2002-01-15 14:56) [4]

т.е., например, так:

var endLoop: boolean; procedure TForm1.Button1Click(Sender: TObject); begin button1.Enabled := false; // чтобы не вызывать endLoop := false; caption := "вошли в цикл"; while not endLoop do application.ProcessMessages; caption := "вышли из цикла"; button1.Enabled := true; // теперь можно end; procedure TForm1.Button2Click(Sender: TObject); begin endLoop := true; end;

← →
Anatoly Podgoretsky (2002-01-15 16:03) [5]

eraser (15.01.02 14:47)
А может ты из цикла не выходишь?

← →
eraser (2002-01-15 16:07) [6]

в процессе работы мне и не надо выходить а вот как только нажму кнопочку так и надобно

← →
Builder (2002-01-15 16:26) [7]

Совет с глобальной переменной правильный. Для этого можно так же использовать SpeedButton.Down - и не нужно глобальной переменной :)

← →
f0rm (2002-01-15 16:30) [8]

Break друзья мои

← →
DELPHIMUN (2002-01-15 16:37) [9]

Цикл с условием.

← →
Digitman (2002-01-15 17:16) [10]

Н-да, это уже чистой воды Паскаль ...

← →
Anatoly Podgoretsky (2002-01-15 17:46) [11]

eraser (15.01.02 16:07
Вот про это и спрашиваю. Покажи код цикла и код выхода.

← →
Polevi (2002-01-15 17:59) [12]

while(SomeValue=false;SomeValue;Application.ProcessMessages)
{
}

Удобно, не так ли?

прерывание цикла Найти похожие ветки