pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix range overflow if formula contains integers > 65535

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4619 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-04-13 10:03:47 +00:00
parent 68466d4ade
commit 2a25a3e64c
4 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/fpsexprparser.pas
View File

@ -1601,12 +1601,10 @@ begin
if TryStrToInt64(CurrentToken, I) then
Result := TsConstExprNode.CreateInteger(self, I)
else
begin
if TryStrToFloat(CurrentToken, X, FFormatSettings) then
Result := TsConstExprNode.CreateFloat(self, X)
else
ParserError(Format(rsInvalidFloat, [CurrentToken]));
end;
if TryStrToFloat(CurrentToken, X, FFormatSettings) then
Result := TsConstExprNode.CreateFloat(self, X)
else
ParserError(Format(rsInvalidFloat, [CurrentToken]));
end
else if (TokenType = ttTrue) then
Result := TsConstExprNode.CreateBoolean(self, true)