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

* Changed var to out parameters for strtoint*

Browse Source 
git-svn-id: trunk@11314 -
This commit is contained in:
michael 2008-07-02 18:00:07 +00:00
parent b32a493b7d
commit 1ea2129c0d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -783,7 +783,7 @@ begin
result:=IntToHex(Int64(Value),Digits);
end;
function TryStrToInt(const s: string; var i : integer) : boolean;
function TryStrToInt(const s: string; out i : integer) : boolean;
var Error : word;
begin
Val(s, i, Error);
@ -809,7 +809,7 @@ begin
end;
function TryStrToInt64(const s: string; var i : int64) : boolean;
function TryStrToInt64(const s: string; Out i : int64) : boolean;
var Error : word;
begin
Val(s, i, Error);
@ -825,7 +825,7 @@ begin
end;
function TryStrToQWord(const s: string; var Q: QWord): boolean;
function TryStrToQWord(const s: string; Out Q: QWord): boolean;
var Error : word;
begin
Val(s, Q, Error);

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

@ -114,11 +114,11 @@ function IntToHex(Value: integer; Digits: integer): string;
function IntToHex(Value: Int64; Digits: integer): string;
function IntToHex(Value: QWord; Digits: integer): string;
function StrToInt(const s: string): integer;
function TryStrToInt(const s: string; var i : integer) : boolean;
function TryStrToInt(const s: string; Out i : integer) : boolean;
function StrToInt64(const s: string): int64;
function TryStrToInt64(const s: string; var i : int64) : boolean;
function TryStrToInt64(const s: string; Out i : int64) : boolean;
function StrToQWord(const s: string): QWord;
function TryStrToQWord(const s: string; var Q : QWord) : boolean;
function TryStrToQWord(const s: string; Out Q : QWord) : boolean;
function StrToIntDef(const S: string; Default: integer): integer;
function StrToInt64Def(const S: string; Default: int64): int64;
function StrToQWordDef(const S: string; Default: QWord): QWord;