- 4.62.2.25 -
Standard Units
System Unit
System Unit Procedures and FunctionsExit 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.
|
|
|
Erase procedure |
Table of Content |
Exclude procedure |
- 4.62.2.25 -