Previous: Erase procedure To the Table of Content Next: Exclude procedure

- 4.62.2.25 -
Standard Units
System Unit
System Unit Procedures and Functions

Exit procedure

Targets: MS-DOS, OS/2, Win32

System Unit

Exits immediately from the current block.

Declaration:
procedure Exit;
While in a procedure or function, Exit causes the subroutine to return to the parent routine. Exit terminates the program if called while in the main routine.

Example:
{$ifndef __CON__}
  This program must be compiled as console application only
{$endif}
uses
  Crt;
procedure ChgColor(ForeGround,BackGround:Byte);
begin
  if not IsColor then Exit;
  SetColor(ForeGround);
  TextBackGround(BackGround);
end;
 
begin
  ChgColor(Green, Black);
  WriteLn('Hellow Green World!');
end.



Previous: Erase procedure To the Table of Content Next: Exclude procedure
Erase procedure Table of Content Exclude procedure

- 4.62.2.25 -