Как выйти из цикла for по нажатию на кнопку в delphi?

Пользователь

от aaron_armstrong , в категории: Другие , 7 месяцев назад

Как выйти из цикла for по нажатию на кнопку в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от jeremy_larkin , 7 месяцев назад

@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, чтобы цикл мог быть прерван.