paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 22:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Parser now only detects a number as float when the "." is followed by

Browse Source 
a valid char. Else the input is handled as a normal integer, followed by
  the dot as separate char. This allows to parse input such as
  "0..9" - until now this would have lead to a float "0..9" which, of
  course, couldn't be converted afterwards.
This commit is contained in:
sg 2001-11-08 11:12:57 +00:00
parent 403b9f23ea
commit 9e81047a48
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/inc/parser.inc
View File

@ -231,7 +231,8 @@ begin
Inc(P);
while P^ in ['0'..'9'] do Inc(P);
Result := toInteger;
while P^ in ['0'..'9', '.', 'e', 'E', '+', '-'] do
while (P^ in ['0'..'9', '.', 'e', 'E', '+', '-']) and not
((P[0] = '.') and not (P[1] in ['0'..'9', 'e', 'E'])) do
begin
Inc(P);
Result := toFloat;
@ -307,7 +308,14 @@ begin
end;
{
$Log$
Revision 1.2 2000-07-13 11:32:59 michael
Revision 1.3 2001-11-08 11:12:57 sg
* Parser now only detects a number as float when the "." is followed by
a valid char. Else the input is handled as a normal integer, followed by
the dot as separate char. This allows to parse input such as
"0..9" - until now this would have lead to a float "0..9" which, of
course, couldn't be converted afterwards.
Revision 1.2 2000/07/13 11:32:59 michael
+ removed logs
}