@aaron_armstrong
Для выхода из цикла for в Delphi по нажатию на кнопку можно использовать переменную-флаг, которая будет указывать, нужно ли прервать выполнение цикла. Например, вот как это можно сделать:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
var i: Integer; StopLoop: Boolean; // переменная-флаг begin StopLoop := False; // инициализация переменной-флага for i := 1 to 10 do begin // какой-то код, который нужно выполнить в цикле if StopLoop then // проверка переменной-флага Break; // выход из цикла end; end; procedure TForm1.Button1Click(Sender: TObject); begin StopLoop := True; // установка переменной-флага end; |
В этом примере переменная StopLoop
инициализируется значением False
перед началом цикла. В теле цикла происходит проверка переменной-флага StopLoop
. Если переменная равна True
, то выполнение цикла прерывается с помощью оператора Break
.
В процедуре обработки события OnClick
кнопки нужно установить значение переменной-флага StopLoop
в True
, чтобы цикл мог быть прерван.