Остановка цикла
Как корректно остановить цикл?
var Stop: boolean; //Глобальная переменная ... procedure Name; begin Stop:= false; while *** do begin Application.ProcessMessages; if Stop then Break; //Тело цикла end; end; procedure Button1.Click; begin Stop:= true; end;
