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

fpspreadsheet: Fix xls reader rejecting formulas with embedded line-break tokens.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6580 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-10 08:15:18 +00:00
parent c1d593b600
commit 7f09efa7de
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/source/common/xlscommon.pas
View File

@ -2533,7 +2533,8 @@ begin
$01: AStream.ReadWord; // tAttrVolatile token, data not used $01: AStream.ReadWord; // tAttrVolatile token, data not used
$02: AStream.ReadWord; // tAttrIf token, data not used $02: AStream.ReadWord; // tAttrIf token, data not used
$08: AStream.ReadWord; // tAttrSkip token, data not used $08: AStream.ReadWord; // tAttrSkip token, data not used
$10: AStream.ReadWord; // tAttrSum token, data not used $40: AStream.ReadWord; // tAttrSum token, data not used
$49: AStream.ReadWord; // tAttrSpace, data not used
else exit; // others not supported by fps --> Result = false else exit; // others not supported by fps --> Result = false
end; end;
Result := true; Result := true;
@ -2945,7 +2946,7 @@ begin
supported := ReadRPNAttr(AStream, b); supported := ReadRPNAttr(AStream, b);
if supported then begin if supported then begin
case b of case b of
$02: ; $02: ; // IF parameter tag
$10: rpnItem := RPNFunc('SUM', 1, rpnItem); // one-parameter SUM $10: rpnItem := RPNFunc('SUM', 1, rpnItem); // one-parameter SUM
end; end;
end; end;