rtl: HexStr nativeint

This commit is contained in:
mattias 2018-04-27 08:36:16 +00:00
parent 77ee122422
commit f6cee08d5d

View File

@ -256,7 +256,7 @@ function Pos(const Search, InString: String): Integer; assembler; overload;
function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
procedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;
function upcase(c : char) : char; assembler;
function HexStr(Val: int64; cnt: byte): string; external name 'rtl.hexStr'; overload;
function HexStr(Val: NativeInt; cnt: byte): string; external name 'rtl.hexStr'; overload;
procedure val(const S: String; out NI : NativeInt; out Code: Integer); overload;
procedure val(const S: String; out SI : ShortInt; out Code: Integer); overload;