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

* reverted TryStrToInt to the old implementation since after the val fixed the changes are not

Browse Source 
needed anymore as pointed out by Bart B
This commit is contained in:
florian 2022-01-09 18:35:31 +01:00
parent 62f1771121
commit 0764158fd1
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -960,14 +960,12 @@ end;
function TryStrToInt(const s: string; out i : Longint) : boolean; function TryStrToInt(const s: string; out i : Longint) : boolean;
var var
Error : word; Error : word;
li : Int64;
begin begin
Val(s, li, Error); Val(s, i, Error);
TryStrToInt:=(Error=0) and (li<=High(DWord)) and (li>=Low(Longint)); TryStrToInt:=(Error=0)
if TryStrToInt then
i:=li;
end; end;
{ StrToInt converts the string S to an integer value, { StrToInt converts the string S to an integer value,
if S does not represent a valid integer value EConvertError is raised } if S does not represent a valid integer value EConvertError is raised }
function StrToInt(const S: string): Longint; function StrToInt(const S: string): Longint;