|
|
@@ -53,7 +53,6 @@ type |
|
|
|
fConsumersLock: TCriticalSection; |
|
|
|
fConsumers: array[TutlLogLevel] of TutlLogConsumerList; |
|
|
|
protected |
|
|
|
class function FormatTime(const aTime:TDateTime): string; |
|
|
|
function FormatSender(const aSender: TObject): String; |
|
|
|
procedure InternalLog(const aLevel:TutlLogLevel; const aSender: TObject; const aMessage: String; const aParams: array of const); overload; |
|
|
|
procedure InternalLog(const aLevel:TutlLogLevel; const aSender: String; const aMessage: String; const aParams: array of const); overload; |
|
|
@@ -61,6 +60,7 @@ type |
|
|
|
procedure RegisterConsumer(const aConsumer: IutlLogConsumer; const aFilter:TutlLogLevels=utlLogLevel_Any); |
|
|
|
procedure UnRegisterConsumer(const aConsumer: IutlLogConsumer; const aFilter:TutlLogLevels=utlLogLevel_Any); |
|
|
|
|
|
|
|
class function FormatTime(const aTime:TDateTime): string; |
|
|
|
class function FormatLine(const aTime:TDateTime; const aLevel: TutlLogLevel; const aSender: string; const aMessage: String): string; |
|
|
|
|
|
|
|
procedure Debug(const aSender: TObject; const aMessage: String; const aParams: array of const); overload; |
|
|
|