Unit messg

= Last modified =} {= $Date: 08.05.98 - 16:31:02 $ =

Classes

Functions

Deb -
Err -
FatalError -
Log -
SendDebugEx -
Warn -

Types

Constants

mtInfo
mtWarn

Variables


Functions


procedure Deb(msg:string;lev:integer);


procedure Err(msg:string);


procedure FatalError(msg:string);


procedure Log(msg:string);


procedure SendDebugEx(msg:string;lev:integer);


procedure Warn(msg:string);


Types


Constants

mtInfo = 1

mtWarn = 2


Variables