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

LazLogger: dbghex for unsigned

Browse Source
This commit is contained in:
Martin 2023-10-10 12:52:12 +02:00
parent dba31d62c4
commit 5b43d582a0
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/lazutils/LazLoggerImpl.inc
View File

@ -509,6 +509,23 @@ begin
{$ENDIF}
end;
function dbghex(i: qword): string;
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
const
Hex = '0123456789ABCDEF';
{$ENDIF}
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}
Result:='';
repeat
Result:=Hex[(i mod 16)+1]+Result;
i:=i div 16;
until i=0;
{$ELSE}
Result := '';
{$ENDIF}
end;
function DbgSTime(): string;
begin
{$IFnDEF USED_BY_LAZLOGGER_DUMMY}

1
components/lazutils/LazLoggerIntf.inc
View File

@ -109,6 +109,7 @@ function DbgSName(const p: TObject): string; overload;
function DbgSName(const p: TClass): string; overload;
function dbgObjMem(AnObject: TObject): string; overload;
function dbghex(i: Int64): string; overload;
function dbghex(i: qword): string; overload;
function DbgSTime(): string;