paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: optimized some log function by making the open array a "const param".

Browse Source
This commit is contained in:
Martin 2023-07-20 18:05:57 +02:00
parent 22587acec8
commit 4d05ca1d2e
4 changed files with 116 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/lazutils/LazLoggerImpl.inc
View File

@ -19,14 +19,14 @@ begin
{$ENDIF}
end;
procedure DbgOut(Args: array of const);
procedure DbgOut(const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DbgOut(Args);
{$ENDIF}
end;
procedure DbgOut(const S: String; Args: array of const);
procedure DbgOut(const S: String; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DbgOut(S, Args);
@ -50,14 +50,14 @@ begin
{$ENDIF}
end;
procedure DebugLn(Args: array of const);
procedure DebugLn(const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLn(Args);
{$ENDIF}
end;
procedure DebugLn(const S: String; Args: array of const);
procedure DebugLn(const S: String; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLn(S, Args);
@ -88,14 +88,14 @@ begin
{$ENDIF}
end;
procedure DebugLnEnter(Args: array of const);
procedure DebugLnEnter(const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnEnter(Args);
{$ENDIF}
end;
procedure DebugLnEnter(s: string; Args: array of const);
procedure DebugLnEnter(s: string; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnEnter(s, Args);
@ -127,14 +127,14 @@ begin
{$ENDIF}
end;
procedure DebugLnExit(Args: array of const);
procedure DebugLnExit(const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnExit(Args);
{$ENDIF}
end;
procedure DebugLnExit(s: string; Args: array of const);
procedure DebugLnExit(s: string; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnExit(s, Args);
@ -166,14 +166,14 @@ begin
{$ENDIF}
end;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DbgOut(LogEnabled, Args);
{$ENDIF}
end;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const);
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DbgOut(LogEnabled, s, Args);
@ -198,14 +198,14 @@ begin
{$ENDIF}
end;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLn(LogEnabled, Args);
{$ENDIF}
end;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const);
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLn(LogEnabled, s, Args);
@ -237,14 +237,14 @@ begin
{$ENDIF}
end;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnEnter(LogEnabled, Args);
{$ENDIF}
end;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const);
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnEnter(LogEnabled, s, Args);
@ -276,14 +276,14 @@ begin
{$ENDIF}
end;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnExit(LogEnabled, Args);
{$ENDIF}
end;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const);
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const);
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
DebugLogger.DebugLnExit(LogEnabled, s, Args);

32
components/lazutils/LazLoggerIntf.inc
View File

@ -1,8 +1,8 @@
procedure DebuglnStack(const s: string = '');
procedure DbgOut(const s: string = ''); inline; overload;
procedure DbgOut(Args: array of const); {inline;} overload;
procedure DbgOut(const S: String; Args: array of const); {inline;} overload;// similar to Format(s,Args)
procedure DbgOut(const Args: array of const); {inline;} overload;
procedure DbgOut(const S: String; const Args: array of const); {inline;} overload;// similar to Format(s,Args)
procedure DbgOut(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -11,8 +11,8 @@ procedure DbgOut(const s1, s2: string; const s3: string = '';
const s16: string = ''; const s17: string = ''; const s18: string = ''); inline; overload;
procedure DebugLn(const s: string = ''); inline; overload;
procedure DebugLn(Args: array of const); {inline;} overload;
procedure DebugLn(const S: String; Args: array of const); {inline;} overload;// similar to Format(s,Args)
procedure DebugLn(const Args: array of const); {inline;} overload;
procedure DebugLn(const S: String; const Args: array of const); {inline;} overload;// similar to Format(s,Args)
procedure DebugLn(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -22,8 +22,8 @@ procedure DebugLn(const s1, s2: string; const s3: string = '';
procedure DebugLnEnter(); inline; overload;
procedure DebugLnEnter(const s: string); inline; overload;
procedure DebugLnEnter(Args: array of const); {inline;} overload;
procedure DebugLnEnter(s: string; Args: array of const); {inline;} overload;
procedure DebugLnEnter(const Args: array of const); {inline;} overload;
procedure DebugLnEnter(s: string; const Args: array of const); {inline;} overload;
procedure DebugLnEnter(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -33,8 +33,8 @@ procedure DebugLnEnter(const s1, s2: string; const s3: string = '';
procedure DebugLnExit(); inline; overload;
procedure DebugLnExit(const s: string); inline; overload;
procedure DebugLnExit(Args: array of const); {inline;} overload;
procedure DebugLnExit(s: string; Args: array of const); {inline;} overload;
procedure DebugLnExit(const Args: array of const); {inline;} overload;
procedure DebugLnExit(s: string; const Args: array of const); {inline;} overload;
procedure DebugLnExit (const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -46,8 +46,8 @@ procedure DebugLnExit (const s1, s2: string; const s3: string = '';
procedure DebuglnStack(LogEnabled: TLazLoggerLogEnabled; const s: string = '');
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const s: string = ''); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -56,8 +56,8 @@ procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s
const s16: string = ''; const s17: string = ''; const s18: string = ''); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const s: string = ''); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -67,8 +67,8 @@ procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const s: string); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -78,8 +78,8 @@ procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; c
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const s: string); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';

88
components/lazutils/lazloggerbase.pas
View File

@ -137,7 +137,7 @@ type
procedure DoDebugLn({%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
procedure DoDebuglnStack(const {%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
function ArgsToString(Args: array of const): string;
function ArgsToString(const Args: array of const): string;
property IsInitialized: Boolean read FIsInitialized;
public
constructor Create;
@ -166,8 +166,8 @@ type
procedure DebuglnStack(const s: string = '');
procedure DbgOut(const s: string = ''); overload;
procedure DbgOut(Args: array of const); overload;
procedure DbgOut(const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(const Args: array of const); overload;
procedure DbgOut(const S: String; const Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -176,7 +176,7 @@ type
const s16: string = ''; const s17: string = ''; const s18: string = ''); overload;
procedure DebugLn(const s: string = ''); overload;
procedure DebugLn(Args: array of const); overload;
procedure DebugLn(const Args: array of const); overload;
procedure DebugLn(const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
@ -187,8 +187,8 @@ type
procedure DebugLnEnter(); overload;
procedure DebugLnEnter(const s: string); overload;
procedure DebugLnEnter(Args: array of const); overload;
procedure DebugLnEnter(s: string; Args: array of const); overload;
procedure DebugLnEnter(const Args: array of const); overload;
procedure DebugLnEnter(s: string; const Args: array of const); overload;
procedure DebugLnEnter(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -198,8 +198,8 @@ type
procedure DebugLnExit(); overload;
procedure DebugLnExit(const s: string); overload;
procedure DebugLnExit(Args: array of const); overload;
procedure DebugLnExit(s: string; Args: array of const); overload;
procedure DebugLnExit(const Args: array of const); overload;
procedure DebugLnExit(s: string; const Args: array of const); overload;
procedure DebugLnExit(const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -211,8 +211,8 @@ type
procedure DebuglnStack(LogEnabled: TLazLoggerLogEnabled; const s: string = '');
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const s: string = ''); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -221,8 +221,8 @@ type
const s16: string = ''; const s17: string = ''; const s18: string = ''); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const s: string = ''); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String; const Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -232,8 +232,8 @@ type
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const s: string); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const); overload;
procedure DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -243,8 +243,8 @@ type
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const s: string); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string; const Args: array of const); overload;
procedure DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string; const s3: string = '';
const s4: string = ''; const s5: string = ''; const s6: string = '';
const s7: string = ''; const s8: string = ''; const s9: string = '';
@ -769,7 +769,7 @@ begin
//
end;
function TLazLogger.ArgsToString(Args: array of const): string;
function TLazLogger.ArgsToString(const Args: array of const): string;
var
i: Integer;
begin
@ -912,12 +912,12 @@ begin
DoDbgOut(s);
end;
procedure TLazLogger.DbgOut(Args: array of const);
procedure TLazLogger.DbgOut(const Args: array of const);
begin
DoDbgOut(ArgsToString(Args));
end;
procedure TLazLogger.DbgOut(const S: String; Args: array of const);
procedure TLazLogger.DbgOut(const S: String; const Args: array of const);
begin
DoDbgOut(Format(S, Args));
end;
@ -936,7 +936,7 @@ begin
DoDebugLn(s);
end;
procedure TLazLogger.DebugLn(Args: array of const);
procedure TLazLogger.DebugLn(const Args: array of const);
begin
DoDebugLn(ArgsToString(Args));
end;
@ -966,14 +966,14 @@ begin
IncreaseIndent;
end;
procedure TLazLogger.DebugLnEnter(Args: array of const);
procedure TLazLogger.DebugLnEnter(const Args: array of const);
begin
if high(Args) >= low(Args) then
DoDebugLn(ArgsToString(Args));
IncreaseIndent;
end;
procedure TLazLogger.DebugLnEnter(s: string; Args: array of const);
procedure TLazLogger.DebugLnEnter(s: string; const Args: array of const);
begin
DoDebugLn(Format(S, Args));
IncreaseIndent;
@ -1000,17 +1000,23 @@ begin
DoDebugLn(s);
end;
procedure TLazLogger.DebugLnExit(Args: array of const);
procedure TLazLogger.DebugLnExit(const Args: array of const);
var
t: String;
begin
t := ArgsToString(Args);
DecreaseIndent;
if high(Args) >= low(Args) then
DoDebugLn(ArgsToString(Args));
DoDebugLn(t);
end;
procedure TLazLogger.DebugLnExit(s: string; Args: array of const);
procedure TLazLogger.DebugLnExit(s: string; const Args: array of const);
var
t: String;
begin
t := Format(S, Args);
DecreaseIndent;
DoDebugLn(Format(S, Args));
DoDebugLn(t);
end;
procedure TLazLogger.DebugLnExit(const s1, s2: string; const s3: string; const s4: string;
@ -1035,14 +1041,15 @@ begin
DoDbgOut(s, LogEnabled.Group);
end;
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled;
const Args: array of const);
begin
if not LogEnabled.Enabled then exit;
DoDbgOut(ArgsToString(Args), LogEnabled.Group);
end;
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String;
Args: array of const);
const Args: array of const);
begin
if not LogEnabled.Enabled then exit;
DoDbgOut(Format(S, Args), LogEnabled.Group);
@ -1064,14 +1071,15 @@ begin
DoDebugLn(s, LogEnabled.Group);
end;
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled;
const Args: array of const);
begin
if not LogEnabled.Enabled then exit;
DoDebugLn(ArgsToString(Args), LogEnabled.Group);
end;
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String;
Args: array of const);
const Args: array of const);
begin
if not LogEnabled.Enabled then exit;
DoDebugLn(Format(S, Args), LogEnabled.Group);
@ -1099,7 +1107,8 @@ begin
IncreaseIndent(LogEnabled);
end;
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled;
const Args: array of const);
begin
if LogEnabled.Enabled then
DoDebugLn(ArgsToString(Args), LogEnabled.Group);
@ -1107,7 +1116,7 @@ begin
end;
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string;
Args: array of const);
const Args: array of const);
begin
if LogEnabled.Enabled then
DoDebugLn(Format(S, Args), LogEnabled.Group);
@ -1137,19 +1146,26 @@ begin
DoDebugLn(s, LogEnabled.Group);
end;
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled;
const Args: array of const);
var
t: String;
begin
t := ArgsToString(Args);
DecreaseIndent(LogEnabled);
if not LogEnabled.Enabled then exit;
DoDebugLn(ArgsToString(Args), LogEnabled.Group);
DoDebugLn(t, LogEnabled.Group);
end;
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string;
Args: array of const);
const Args: array of const);
var
t: String;
begin
t := Format(S, Args);
DecreaseIndent(LogEnabled);
if not LogEnabled.Enabled then exit;
DoDebugLn(Format(S, Args), LogEnabled.Group);
DoDebugLn(t, LogEnabled.Group);
end;
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const s1, s2: string;

64
components/lazutils/lazloggerdummy.pas
View File

@ -111,8 +111,8 @@ type
procedure DebuglnStack(const {%H-}s: string = '');
procedure DbgOut(const {%H-}s: string = ''); overload;
procedure DbgOut({%H-}Args: array of const); overload;
procedure DbgOut(const {%H-}S: String; {%H-}Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut({%H-}const Args: array of const); overload;
procedure DbgOut(const {%H-}S: String; {%H-}const Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut(const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -121,8 +121,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLn(const {%H-}s: string = ''); overload;
procedure DebugLn({%H-}Args: array of const); overload;
procedure DebugLn(const {%H-}S: String; {%H-}Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn({%H-}const Args: array of const); overload;
procedure DebugLn(const {%H-}S: String; {%H-}const Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn(const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -131,8 +131,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLnEnter(const {%H-}s: string = ''); overload;
procedure DebugLnEnter({%H-}Args: array of const); overload;
procedure DebugLnEnter({%H-}s: string; {%H-}Args: array of const); overload;
procedure DebugLnEnter({%H-}const Args: array of const); overload;
procedure DebugLnEnter({%H-}s: string; {%H-}const Args: array of const); overload;
procedure DebugLnEnter(const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -141,8 +141,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLnExit(const {%H-}s: string = ''); overload;
procedure DebugLnExit({%H-}Args: array of const); overload;
procedure DebugLnExit({%H-}s: string; {%H-}Args: array of const); overload;
procedure DebugLnExit({%H-}const Args: array of const); overload;
procedure DebugLnExit({%H-}s: string; {%H-}const Args: array of const); overload;
procedure DebugLnExit(const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -154,8 +154,8 @@ type
procedure DebuglnStack({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s: string = '');
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s: string = ''); overload;
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}Args: array of const); overload;
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}S: String; {%H-}Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}const Args: array of const); overload;
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}S: String; {%H-}const Args: array of const); overload;// similar to Format(s,Args)
procedure DbgOut({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -164,8 +164,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s: string = ''); overload;
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}Args: array of const); overload;
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}S: String; {%H-}Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}const Args: array of const); overload;
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}S: String; {%H-}const Args: array of const); overload;// similar to Format(s,Args)
procedure DebugLn({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -174,8 +174,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s: string = ''); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}Args: array of const); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}s: string; {%H-}Args: array of const); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}const Args: array of const); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}s: string; {%H-}const Args: array of const); overload;
procedure DebugLnEnter({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -184,8 +184,8 @@ type
const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s: string = ''); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}Args: array of const); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}s: string; {%H-}Args: array of const); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}const Args: array of const); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; {%H-}s: string; {%H-}const Args: array of const); overload;
procedure DebugLnExit({%H-}LogEnabled: TLazLoggerLogEnabled; const {%H-}s1, {%H-}s2: string; const {%H-}s3: string = '';
const {%H-}s4: string = ''; const {%H-}s5: string = ''; const {%H-}s6: string = '';
const {%H-}s7: string = ''; const {%H-}s8: string = ''; const {%H-}s9: string = '';
@ -340,12 +340,12 @@ begin
end;
procedure TLazLogger.DbgOut(Args: array of const);
procedure TLazLogger.DbgOut(const Args: array of const);
begin
end;
procedure TLazLogger.DbgOut(const S: String; Args: array of const);
procedure TLazLogger.DbgOut(const S: String; const Args: array of const);
begin
end;
@ -364,12 +364,12 @@ begin
end;
procedure TLazLogger.DebugLn(Args: array of const);
procedure TLazLogger.DebugLn(const Args: array of const);
begin
end;
procedure TLazLogger.DebugLn(const S: String; Args: array of const);
procedure TLazLogger.DebugLn(const S: String; const Args: array of const);
begin
end;
@ -388,12 +388,12 @@ begin
end;
procedure TLazLogger.DebugLnEnter(Args: array of const);
procedure TLazLogger.DebugLnEnter(const Args: array of const);
begin
end;
procedure TLazLogger.DebugLnEnter(s: string; Args: array of const);
procedure TLazLogger.DebugLnEnter(s: string; const Args: array of const);
begin
end;
@ -412,12 +412,12 @@ begin
end;
procedure TLazLogger.DebugLnExit(Args: array of const);
procedure TLazLogger.DebugLnExit(const Args: array of const);
begin
end;
procedure TLazLogger.DebugLnExit(s: string; Args: array of const);
procedure TLazLogger.DebugLnExit(s: string; const Args: array of const);
begin
end;
@ -441,13 +441,13 @@ begin
end;
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
end;
procedure TLazLogger.DbgOut(LogEnabled: TLazLoggerLogEnabled; const S: String;
Args: array of const);
const Args: array of const);
begin
end;
@ -466,13 +466,13 @@ begin
end;
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
end;
procedure TLazLogger.DebugLn(LogEnabled: TLazLoggerLogEnabled; const S: String;
Args: array of const);
const Args: array of const);
begin
end;
@ -491,13 +491,13 @@ begin
end;
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
end;
procedure TLazLogger.DebugLnEnter(LogEnabled: TLazLoggerLogEnabled; s: string;
Args: array of const);
const Args: array of const);
begin
end;
@ -516,13 +516,13 @@ begin
end;
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; Args: array of const);
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; const Args: array of const);
begin
end;
procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string;
Args: array of const);
const Args: array of const);
begin
end;