Previous: 4.67.2.24. Erase procedure To the Table of Contents Next: 4.67.2.26. Exclude procedure
4.67.2.24. Erase procedure Table of Contents 4.67.2.26. Exclude procedure

- 4.67.2.25. -
Table of Contents
4. Standard Units
4.67. System - Built-in routines
4.67.2. System Unit Procedures and Functions
4.67.2.25. Exit procedure


4.67.2.25. 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: 4.67.2.24. Erase procedure To the Table of Contents Next: 4.67.2.26. Exclude procedure
4.67.2.24. Erase procedure Table of Contents 4.67.2.26. Exclude procedure

- 4.67.2.25. -