paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 07:30:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* val takes care of empty string, patch from Petr Kristan

Browse Source 
git-svn-id: trunk@10609 -
This commit is contained in:
florian 2008-04-06 19:33:31 +00:00
parent 95aaa7a74b
commit 347ae5a3bf
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/sstrings.inc
View File

@ -765,12 +765,18 @@ Function InitVal(const s:shortstring;out negativ:boolean;out base:byte):ValSInt;
var
Code : SizeInt;
begin
{Skip Spaces and Tab}
code:=1;
negativ:=false;
base:=10;
if length(s)=0 then
begin
InitVal:=code;
Exit;
end;
{Skip Spaces and Tab}
while (code<=length(s)) and (s[code] in [' ',#9]) do
inc(code);
{Sign}
negativ:=false;
case s[code] of
'-' : begin
negativ:=true;
@ -779,7 +785,6 @@ begin
'+' : inc(code);
end;
{Base}
base:=10;
if code<=length(s) then
begin
case s[code] of
@ -1388,3 +1393,4 @@ begin
ShortCompareText := L1 - L2;
end;