From 541228d5acd742889b54e087d97245817271ac1f Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 15 Oct 2020 18:37:39 +0000 Subject: [PATCH] LazLogger: add dbgsTime (tickcount) git-svn-id: trunk@64018 - --- components/lazutils/LazLoggerImpl.inc | 10 ++++++++++ components/lazutils/LazLoggerIntf.inc | 2 ++ 2 files changed, 12 insertions(+) diff --git a/components/lazutils/LazLoggerImpl.inc b/components/lazutils/LazLoggerImpl.inc index 266e588b1e..2da0e8ab8a 100644 --- a/components/lazutils/LazLoggerImpl.inc +++ b/components/lazutils/LazLoggerImpl.inc @@ -509,6 +509,16 @@ begin {$ENDIF} end; +function DbgSTime(): string; +begin + {$IFnDEF USED_BY_LAZLOGGER_DUMMY} + Result:= IntToStr(GetTickCount64); + Insert(':', Result, Length(Result)-2); + {$ELSE} + Result := ''; + {$ENDIF} +end; + function DbgS(const i1, i2, i3, i4: integer): string; begin {$IFnDEF USED_BY_LAZLOGGER_DUMMY} diff --git a/components/lazutils/LazLoggerIntf.inc b/components/lazutils/LazLoggerIntf.inc index 0361901770..e52f645500 100644 --- a/components/lazutils/LazLoggerIntf.inc +++ b/components/lazutils/LazLoggerIntf.inc @@ -110,6 +110,8 @@ function DbgSName(const p: TClass): string; overload; function dbgObjMem(AnObject: TObject): string; overload; function dbghex(i: Int64): string; overload; +function DbgSTime(): string; + function dbgMemRange(P: Pointer; Count: integer; Width: integer = 0): string; overload; function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload;