paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added overloads UintToStr for Delphi compatbibility (bug ID 0034690)

Browse Source 
git-svn-id: trunk@40529 -
This commit is contained in:
michael 2018-12-12 08:29:24 +00:00
parent da5868b668
commit 93ec37a4bc
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/sysutils/sysstr.inc
View File

@ -850,6 +850,17 @@ begin
System.Str(Value, result);
end ;
function UIntToStr(Value: QWord): string;
begin
result:=IntTostr(Value);
end;
function UIntToStr(Value: Cardinal): string;
begin
System.Str(Value, result);
end;
{ IntToHex returns a string representing the hexadecimal value of Value }

2
rtl/objpas/sysutils/sysstrh.inc
View File

@ -115,6 +115,8 @@ function IsValidIdent(const Ident: string; AllowDots: Boolean = False; StrictDot
function IntToStr(Value: Longint): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
function IntToStr(Value: Int64): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
function IntToStr(Value: QWord): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
function UIntToStr(Value: QWord): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
function UIntToStr(Value: Cardinal): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}
function IntToHex(Value: Longint; Digits: integer): string;
function IntToHex(Value: Int64; Digits: integer): string;
function IntToHex(Value: QWord; Digits: integer): string; {$ifdef SYSUTILSINLINE}inline;{$ENDIF}