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

FPSpreadsheet: Implements enough to write SUM(A1:A5) formulas in BIFF8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1661 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-05-30 10:07:41 +00:00
parent c9280da776
commit d2c9b9085f
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/fpspreadsheet/examples/other/test_write_formula.pas
View File

@@ -27,19 +27,14 @@ begin
MyWorksheet := MyWorkbook.AddWorksheet('Worksheet1'); MyWorksheet := MyWorkbook.AddWorksheet('Worksheet1');
// Write some cells // Write some cells
MyWorksheet.WriteUTF8Text(1, 0, 'Text Formulas');// A2 MyWorksheet.WriteUTF8Text(0, 1, 'Text Formula');// B1
MyWorksheet.WriteUTF8Text(0, 2, 'RPN');// C1
MyWorksheet.WriteUTF8Text(1, 1, '=Sum(D2:d5) Text Formula'); // B2 MyWorksheet.WriteUTF8Text(1, 0, '=Sum(D2:d5)'); // A2
MyFormula.FormulaStr := '=Sum(D2:d5)'; MyFormula.FormulaStr := '=Sum(D2:d5)';
MyFormula.DoubleValue := 0.0; MyFormula.DoubleValue := 0.0;
MyWorksheet.WriteFormula(1, 2, MyFormula); // C2 MyWorksheet.WriteFormula(1, 1, MyFormula); // B2
MyWorksheet.WriteUTF8Text(1, 1, '=Sum(D2:d5) RPN'); // B3
MyFormula.FormulaStr := '=Sum(D2:d5)';
MyFormula.DoubleValue := 0.0;
MyWorksheet.WriteFormula(1, 2, MyFormula); // C3
SetLength(MyRPNFormula, 2); SetLength(MyRPNFormula, 2);
MyRPNFormula[0].ElementKind := fekCellRange; MyRPNFormula[0].ElementKind := fekCellRange;
@@ -48,7 +43,7 @@ begin
MyRPNFormula[0].Col := 3; MyRPNFormula[0].Col := 3;
MyRPNFormula[0].Col2 := 3; MyRPNFormula[0].Col2 := 3;
MyRPNFormula[1].ElementKind := fekOpSUM; MyRPNFormula[1].ElementKind := fekOpSUM;
MyWorksheet.WriteRPNFormula(1, 2, MyRPNFormula); // C2 MyWorksheet.WriteRPNFormula(1, 2, MyRPNFormula); // C2
end; end;
procedure WriteSecondWorksheet(); procedure WriteSecondWorksheet();