paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2026-02-25 05:48:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

rtl: added val(string;out nativeuint;out integer)

Browse Source
This commit is contained in:
mattias 2018-10-16 10:24:03 +00:00
parent 8e84c3d709
commit 73eff95a11
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/system.pas
View File

@ -265,6 +265,7 @@ function upcase(c : char) : char; assembler;
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 NI : NativeUInt; out Code: Integer); overload;
procedure val(const S: String; out SI : ShortInt; out Code: Integer); overload;
procedure val(const S: String; out B : Byte; out Code: Integer); overload;
procedure val(const S: String; out SI : smallint; out Code: Integer); overload;
@ -476,8 +477,19 @@ begin
NI:=Trunc(x);
end;
procedure val(const S: String; out SI : ShortInt; out Code: Integer);
procedure val(const S: String; out NI: NativeUInt; out Code: Integer);
var
x : double;
begin
Code:=0;
x:=Number(S);
if isNaN(x) or (X<>Int(X)) or (X<0) then
Code:=1
else
NI:=Trunc(x);
end;
procedure val(const S: String; out SI : ShortInt; out Code: Integer);
var
X:Double;
begin