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

LazLogger: optimized some log function

Browse Source
This commit is contained in:
Martin 2023-07-20 18:23:27 +02:00
parent 86b559253b
commit c74bd43729
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazloggerbase.pas
View File

@ -1151,7 +1151,7 @@ procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled;
var
t: String;
begin
t := ArgsToString(Args);
if LogEnabled.Enabled then t := ArgsToString(Args);
DecreaseIndent(LogEnabled);
if not LogEnabled.Enabled then exit;
DoDebugLn(t, LogEnabled.Group);
@ -1162,7 +1162,7 @@ procedure TLazLogger.DebugLnExit(LogEnabled: TLazLoggerLogEnabled; s: string;
var
t: String;
begin
t := Format(S, Args);
if LogEnabled.Enabled then t := Format(S, Args);
DecreaseIndent(LogEnabled);
if not LogEnabled.Enabled then exit;
DoDebugLn(t, LogEnabled.Group);