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

fpspreadsheet: Activate boIgnoreFormulas also when reading an ods file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-25 18:55:47 +00:00
parent 1de4037030
commit 659b19e80f
1 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2354,6 +2354,8 @@ begin
end; end;
Delete(formula, 1, p); Delete(formula, 1, p);
end; end;
if not (boIgnoreFormulas in FWorkbook.Options) then
begin
// ... convert to Excel "A1" dialect used by fps by defailt // ... convert to Excel "A1" dialect used by fps by defailt
parser := TsSpreadsheetParser.Create(FWorksheet); parser := TsSpreadsheetParser.Create(FWorksheet);
try try
@ -2379,6 +2381,7 @@ begin
finally finally
parser.Free; parser.Free;
end; end;
end;
// ... and store in cell's FormulaValue field. // ... and store in cell's FormulaValue field.
cell^.FormulaValue := formula; cell^.FormulaValue := formula;
end; end;