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

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

от lilla.herman , в категории: Другие , 3 года назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

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

от Programmer , 3 года назад

@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 он будет завершен.

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

от elian.swift , 2 года назад

@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;