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

LazLogger: add dbgsTime (tickcount)

Browse Source 
git-svn-id: trunk@64018 -
This commit is contained in:
martin 2020-10-15 18:37:39 +00:00
parent b5afc22435
commit 541228d5ac
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/LazLoggerImpl.inc
View File

@ -509,6 +509,16 @@ begin
{$ENDIF} {$ENDIF}
end; 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; function DbgS(const i1, i2, i3, i4: integer): string;
begin begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY} {$IFnDEF USED_BY_LAZLOGGER_DUMMY}

2
components/lazutils/LazLoggerIntf.inc
View File

@ -110,6 +110,8 @@ function DbgSName(const p: TClass): string; overload;
function dbgObjMem(AnObject: TObject): string; overload; function dbgObjMem(AnObject: TObject): string; overload;
function dbghex(i: Int64): string; overload; function dbghex(i: Int64): string; overload;
function DbgSTime(): string;
function dbgMemRange(P: Pointer; Count: integer; Width: integer = 0): string; overload; function dbgMemRange(P: Pointer; Count: integer; Width: integer = 0): string; overload;
function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload; function dbgMemStream(MemStream: TCustomMemoryStream; Count: integer): string; overload;