Выход из бесконечного цикла

[TilerDerton]

Не могу понять.
Вот, например, использую я бесконечный цикл, активируемый 1-й кнопкой. Что написать во 2-й кнопке, чтобы она рубила программу? (стандартный крестик в углу не закрывает, хотя программа точно работает, не зависла)

[Terran]

Попробуйте так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Application.Terminate;
End;

[Роман Радер]

вот так:

// вечный цикл
flag:=false;
while true do begin
  application.processmessages;
  if flag then break;
  //do something
end;
flag:=false;
application.processmessages;

//кнопка 2
flag:=true;
while flag do
  application.processmessages;
//а теперь уже 
Application.Terminate;

[5naip]

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

[Lime]

halt;

- вырубит.

[TilerDerton]

5naip, Форма не подвисает, в цикле используется процедура c мелкими слипами, т.е. кнопки нажимаются без вреда для самой работы (форма прекрасно "таскается" по экрану). Проблема в том, что цикл не реагирует на стороннее вмешательство.
Роман Радер, а вот Ваш ответ меня заинтересовал, буду дома, попробую...
Terran, пробовал, не реагирует.
Всем спасибо...

[Sm1Le]

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

[Stilet]

TilerDerton

Либо этот цикл в отдельный поток либо в цикле прописать Application.ProcessMessage. Но лучше в поток.

[DeKot]

В чем вопрос? Application.ProcessMessage позволяет влезть в любой цикл и дать команду на прерывание цикла или же полностью закрыть приложение (Halt).
Простой пример - на форме кнопки Пуск и Стоп цикла. В цикле мигает квадратик.

procedure TForm1.BPuskClick(Sender: TObject);
begin
  flag:= true;
  BStop.SetFocus;
  while flag = true do
  begin
    Inc(cnt);
    if (cnt mod 10000) = 0 then begin _color:= not _color; cnt:= 1; end;
    if _color = true then Form1.Canvas.Brush.Color:= clRed
    else Form1.Canvas.Brush.Color:= clBtnFace;
    Form1.Canvas.Rectangle(100,100,150,150);
    Application.ProcessMessages;
  end;
end;

procedure TForm1.BStopClick(Sender: TObject); // Стоп по кнопке на форме
begin
  flag:= false;
  Form1.Canvas.Brush.Color:= clBtnFace;
  Form1.Canvas.Rectangle(100,100,150,150);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; // Стоп по клавише клавиатуры (любая)
  Shift: TShiftState);
begin
   BStopClick(Sender);
end;

Прерывание цикла или по кнопке формы или по любой клавише клавиатуры.
Полоностью проект во вложении.

Чет я ступил, не посмотрел на дату. Перешел по ссылке из другой темы http://www.programmersforum.ru/showthread.php?t=112021. Там ответ более был бы актуален.

[Gambler]

Application.ProcessMessage - дает возможность системе обработать процесс. Для бесконечных циклов это если и работает - использовать нельзя. Так как будет не стабильно. Пиши отдельный поток, в нем цикл. В основном потоке - обработка нажатий кнопок.