Class TMessageSender (unit DebugMessages) |
Inherits from
TObject
constructor Create(const sFormatString : string; const bSendMessages :Boolean);
- ----------------------------------------------------------------------------
procedure HandleMessages(VAR Msg: TMsg; VAR Handled :Boolean);
MessageHandling
procedure OutLPT (const Level :Integer; const Proc :string; const Text :string);
procedure OutLPTA(const Level :Integer; const Proc :string; const Text :string; const Args: Array of const);
procedure OutLT (const Level :Integer; const Text :string);
procedure OutLTA (const Level :Integer; const Text :string; const Args: Array of const);
procedure OutT (const Text :string);
Output-Routines ----------------------------------------------------------------------------
procedure OutTA (const Text :string; const Args: Array of const);
procedure SetFormat(const FormatStr :string);
Settings Call standard stuff
procedure SetLP(const Level :Integer; const Proc :string);
procedure SetSendMode(const bSendModeOn :Boolean);
procedure Out(const Level :Integer;
const Proc :String;
const Text :string);
procedure OutA(const Level :Integer;
const Proc :String;
const Text :string;
const Args : Array of const);
procedure ParseFormat(FormatStr :string);
----------------------------------------------------------------------------
procedure RegisterMessages;
constructor Create(const sFormatString : string; const bSendMessages :Boolean);
----------------------------------------------------------------------------
procedure HandleMessages(VAR Msg: TMsg; VAR Handled :Boolean);
MessageHandling
procedure OutLPT (const Level :Integer; const Proc :string; const Text :string);
procedure OutLPTA(const Level :Integer; const Proc :string; const Text :string; const Args: Array of const);
procedure OutLT (const Level :Integer; const Text :string);
procedure OutLTA (const Level :Integer; const Text :string; const Args: Array of const);
procedure OutT (const Text :string);
Output-Routines
----------------------------------------------------------------------------
procedure OutTA (const Text :string; const Args: Array of const);
procedure SetFormat(const FormatStr :string);
Settings
Call standard stuff
procedure SetLP(const Level :Integer; const Proc :string);
procedure SetSendMode(const bSendModeOn :Boolean);
procedure Out(const Level :Integer;
const Proc :String;
const Text :string);
procedure OutA(const Level :Integer;
const Proc :String;
const Text :string;
const Args : Array of const);
procedure ParseFormat(FormatStr :string);
----------------------------------------------------------------------------
procedure RegisterMessages;