Процедура 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 — повторює інструкції, доки виконається умова продовження.
Пригостити автора кавою