Как выйти из цикла 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 он будет завершен.