Class TLogMsg (unit Logmsg)

Inherits from

TObject

Constructors


constructor Create(FileName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Msg(Pfx : Char; Msg : PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Msg2(Pfx : Char; Msg1 : PChar; Len1 : Integer; Msg2 : PChar; Len2 : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Renew;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure szText(Pfx : Char; szMsg : PChar);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Text(Pfx : Char; MsgTxt : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Text2(Pfx : Char; MsgTxt1, MsgTxt2 : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property MaxSize : LongInt


Events

Variables

FCount : LongInt;


FFileHandle : File of char;


FFileName : String;


FFileNameOld : String;


FMaxSize : LongInt;


FStartTime : TDateTime;



Constructors


constructor Create(FileName : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Msg(Pfx : Char; Msg : PChar; Len : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Msg2(Pfx : Char; Msg1 : PChar; Len1 : Integer; Msg2 : PChar; Len2 : Integer);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Renew;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure szText(Pfx : Char; szMsg : PChar);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Text(Pfx : Char; MsgTxt : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Text2(Pfx : Char; MsgTxt1, MsgTxt2 : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property MaxSize : LongInt


Events


Variables


FCount : LongInt;


FFileHandle : File of char;


FFileName : String;


FFileNameOld : String;


FMaxSize : LongInt;


FStartTime : TDateTime;