diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-02 09:25:35 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-07-02 09:25:35 +0000 |
commit | 75a2afb8e0e0c597c5f73555a76ea16a35e5467c (patch) | |
tree | cc57029560a063e3f1b27eabcd60a10c529fc118 | |
parent | 2d0618b029d656cb6c832cbb82ce6369142b853a (diff) | |
download | fpc-75a2afb8e0e0c597c5f73555a76ea16a35e5467c.tar.gz |
+ Added StrToQWord
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@4063 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/objpas/sysutils/sysstr.inc | 11 | ||||
-rw-r--r-- | rtl/objpas/sysutils/sysstrh.inc | 3 |
2 files changed, 10 insertions, 4 deletions
diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc index 6297048652..c1b3f37c78 100644 --- a/rtl/objpas/sysutils/sysstr.inc +++ b/rtl/objpas/sysutils/sysstr.inc @@ -795,11 +795,16 @@ begin end; -function TryStrQWord(const s: string; var i: QWord): boolean; +function TryStrQWord(const s: string; var Q: QWord): boolean; +begin + Result:=TryStrToQWord(S,Q); +end; + +function TryStrToQWord(const s: string; var Q: QWord): boolean; var Error : word; begin - Val(s, i, Error); - TryStrQWord:=Error=0 + Val(s, Q, Error); + TryStrToQWord:=Error=0 end; { StrToIntDef converts the string S to an integer value, diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc index 5dffc8cc89..26ddf688ee 100644 --- a/rtl/objpas/sysutils/sysstrh.inc +++ b/rtl/objpas/sysutils/sysstrh.inc @@ -108,7 +108,8 @@ function TryStrToInt(const s: string; var i : integer) : boolean; function StrToInt64(const s: string): int64; function TryStrToInt64(const s: string; var i : int64) : boolean; function StrToQWord(const s: string): QWord; -function TryStrQWord(const s: string; var i : QWord) : boolean; +function TryStrQWord(const s: string; var Q : QWord) : boolean; +function TryStrToQWord(const s: string; var 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; |