Как выйти из цикла while в delphi?

@lilla.herman Добрый день!

Для выхода из цикла используйте команду Berak

Пример:

1
2
3
4
5
6
7
8

var i: integer;
...
i:= 0;
while true do 
begin
	inc(i);
	if i= 10 then Break;	
end;

Цикл бесконечный, но при i = 10 он будет завершен.

@lilla.herman 

Внутри цикла while можно использовать оператор break для выхода из цикла в любой момент, если определённое условие выполнено. Например:

var i: Integer; begin i := 0; while i < 10 do begin if <условие> then break; // выход из цикла Inc(i); end; end;

Также можно использовать оператор exit для выхода из цикла из любой точки программы. Например:

var i: Integer; begin i := 0; while true do begin if <условие> then exit; // выход из цикла Inc(i); if i > 100 then exit; // выход из цикла из любой точки программы end; end;