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.