paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-19 09:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* (try)StrToUint(def)

Browse Source
This commit is contained in:
michael 2021-03-14 09:02:51 +00:00
parent caca92c60d
commit 513de6c6e3
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
packages/rtl/sysutils.pas
View File

@ -291,6 +291,10 @@ Function StrToIntDef(const S : String; Const aDef : Integer) : Integer;
Function StrToIntDef(const S : String; Const aDef : NativeInt) : NativeInt;
Function StrToInt(const S : String) : Integer;
Function StrToNativeInt(const S : String) : NativeInt;
function StrToUInt(const s: string): Cardinal;
function StrToUIntDef(const s: string; aDef : Cardinal): Cardinal;
function UIntToStr(Value: Cardinal): string;
function TryStrToUInt(const s: string; out C: Cardinal): Boolean;
// For compatibility
Function StrToInt64(const S : String) : NativeLargeInt;
Function StrToInt64Def(const S : String; ADefault : NativeLargeInt) : NativeLargeInt;
@ -4741,6 +4745,36 @@ begin
Raise EConvertError.CreateFmt(SErrInvalidInteger,[S]);
end;
function StrToUInt(const s: string): Cardinal;
begin
If not TryStrToUint(S,Result) then
Raise EConvertError.CreateFmt(SErrInvalidInteger,[S])
end;
function StrToUIntDef(const s: string; aDef : Cardinal): Cardinal;
begin
If not TryStrToUint(S,Result) then
Result:=aDef;
end;
function UIntToStr(Value: Cardinal): string;
begin
Result:=IntToStr(Value);
end;
function TryStrToUInt(const s: string; out C: Cardinal): Boolean;
Var
N : NativeInt;
begin
Result:=TryStrToInt(S,N);
Result:=(N>=0) and (N<=4294967295);
If Result then
C:=N;
end;
function StrToInt64(const S: String): NativeLargeInt;
Var