| Class TLogMsg (unit Logmsg) |
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;