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

fpspreadsheet: Fix expression parser crashing in GUI with comma as decimal separator.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7065 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-21 09:42:19 +00:00
parent de42ac0072
commit d310b3b9f2
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/common/fpsexprparser.pas
View File

@ -1197,7 +1197,7 @@ var
begin
C := CurrentChar;
prevC := #0;
while (not IsWordDelim(C) or (prevC = 'E')) and (C <> cNull) do
while (not IsWordDelim(C) or (prevC = 'E') or (C = FParser.FFormatSettings.DecimalSeparator)) and (C <> cNull) do
begin
if not ( IsDigit(C)
or ((FToken <> '') and (Upcase(C) = 'E'))
@ -2054,7 +2054,6 @@ begin
exit;
FFormatSettings := AFormatSettings;
UpdateExprFormatSettings;
// ExprFormatSettings := AFormatSettings;
FExpression := AValue;
if (AValue <> '') and (AValue[1] = '=') then
FScanner.Source := Copy(AValue, 2, Length(AValue))