Node:Exit, Next:Exp, Previous:Exclude, Up:Reference
procedure Exit;
Exit leaves the currently executed procedure or function.
Note: If Exit is called within the main program, it will be
terminated instantly.
Exit is a UCSD Pascal extension. GNU Pascal does not support all
uses of Exit but only those defined in Borland Pascal.
program ExitDemo;
procedure Foo (Bar: Integer);
var
Baz, Fac: Integer;
begin
if Bar < 1 then
Exit; { Exit `Foo' }
Fac := 1;
for Baz := 1 to Bar do
begin
Fac := Fac * Baz;
if Fac >= Bar then
Exit; { Exit `Foo' }
WriteLn (Bar,' is greater than ', Baz, '!, which is equal to ', Fac)
end
end;
begin
Foo (-1);
Foo (789);
Exit; { Terminates program }
Foo (987654321) { This is not executed anymore }
end.