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

fpspreadsheet: Fix formulas from prev sheet overrunning other formulas in sheet, xlsx issue (SharedFormulaBase list must be reset for each sheet) - see http://forum.lazarus.freepascal.org/index.php/topic,35903.0.html)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5753 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-02-18 17:31:05 +00:00
parent ef4c18081d
commit 280dc39ddc
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

@ -2104,7 +2104,7 @@ var
Doc : TXMLDocument; Doc : TXMLDocument;
RelsNode: TDOMNode; RelsNode: TDOMNode;
SheetList: TStringList; SheetList: TStringList;
i: Integer; i, j: Integer;
fn: String; fn: String;
fn_comments: String; fn_comments: String;
XMLStream: TStream; XMLStream: TStream;
@ -2204,6 +2204,11 @@ begin
XMLStream.Free; XMLStream.Free;
end; end;
// clear sharedformulabase list
for j:=FSharedFormulaBaseList.Count-1 downto 0 do
TObject(FSharedFormulaBaseList[j]).Free;
FSharedFormulaBaseList.Clear;
// Sheet data, formats, etc. // Sheet data, formats, etc.
ReadSheetViews(Doc.DocumentElement.FindNode('sheetViews'), FWorksheet); ReadSheetViews(Doc.DocumentElement.FindNode('sheetViews'), FWorksheet);
ReadSheetFormatPr(Doc.DocumentElement.FindNode('sheetFormatPr'), FWorksheet); ReadSheetFormatPr(Doc.DocumentElement.FindNode('sheetFormatPr'), FWorksheet);