paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tohexstring calls inttohex instead of hexstr. Hexstr has fixed number of

Browse Source 
digits, inttohex a minimum number. Mantis #35015

git-svn-id: trunk@41268 -
This commit is contained in:
marco 2019-02-09 17:12:20 +00:00
parent 8b956a580e
commit 93fcce4ba1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syshelpo.inc
View File

@ -49,13 +49,13 @@ Function TORDINALHELPER.ToHexString(const AMinDigits: Integer): string;
overload; inline; overload; inline;
begin begin
Result:=HexStr(Self,AMinDigits); Result:=IntToHex(Self,AMinDigits);
end; end;
Function TORDINALHELPER.ToHexString: string; overload; inline; Function TORDINALHELPER.ToHexString: string; overload; inline;
begin begin
Result:=HexStr(Self,SizeOf(TORDINALTYPE)*2); Result:=IntToHex(Self,SizeOf(TORDINALTYPE)*2);
end; end;
Function TORDINALHELPER.ToSingle: Single; inline; Function TORDINALHELPER.ToSingle: Single; inline;