Процедура Break в Delphi выполняет выход из одного цикла.
System unit
procedure Break;
Процедура Break выполняет выход из одного цикла, то есть из текущего цикла см. пример. Подобно инструкции Goto, она должна использоваться с осторожностью.
Следующая инструкция, которая будет выполнена это та которая стоит после признака конца цикла. Например:
for i := 1 to 10 do
begin
...
break;
...
end;
size := 10; // перескакивает сюда
Важно обратить внимание, что оператор Break выпрыгнет только из текущего цикла – не из всех вложенных циклов выше него. А инструкция Goto может это сделать.
Примечание.
Используйте данную процедуру с осторожностью.
Процедура Break: Выброс из цикла for по разумным причинам
var
i : Integer;
s : string;
begin
s := '';
// Большой цикл
for i := 1 to 10 do
begin
s := s + IntToStr(i) + ' ';
// Выход из цикла, когда выполнено некоторое условие
if Random(4) = 2 then Break;
end;
ShowMessage('i = '+IntToStr(i));
ShowMessage('s = '+s);
end;Результат
i = 6
s = 1 2 3 4 5 6
Похожие функции, процедуры и команды
Continue — заставляет перейти к следующей итерации цикла.
Exit — осуществляет выход из функции или процедуры.
For — начинает цикл, который выполняется конечное число раз.
Goto — вызывает скачок к метке, независимо от вложения.
Repeat — повторяет инструкции, пока не выполнится условие завершения.
RunError — заканчивает программу с диалогом ошибки.
While — повторяет инструкции, пока выполнится условие продолжения.
Угостить автора чашечкой кофе