Difference between revisions of "FPSpreadsheet"
Sekelsenmat (talk | contribs) |
Sekelsenmat (talk | contribs) |
||
| Line 12: | Line 12: | ||
Demonstrates how to write an Excel 5.x file using the fpspreadsheet library | Demonstrates how to write an Excel 5.x file using the fpspreadsheet library | ||
| + | |||
| + | You can change the output format by changing the OUTPUT_FORMAT constant | ||
AUTHORS: Felipe Monteiro de Carvalho | AUTHORS: Felipe Monteiro de Carvalho | ||
| Line 20: | Line 22: | ||
uses | uses | ||
| − | Classes, SysUtils, fpspreadsheet, | + | Classes, SysUtils, fpspreadsheet, fpsallformats, fpspreadsheet_pkg; |
| + | |||
| + | const OUTPUT_FORMAT = sfExcel5; | ||
var | var | ||
| Line 63: | Line 67: | ||
// Save the spreadsheet to a file | // Save the spreadsheet to a file | ||
| − | MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, | + | MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT); |
MyWorkbook.Free; | MyWorkbook.Free; | ||
end. | end. | ||
Revision as of 14:50, 17 October 2008
The fpSpreadsheet library offers a convenient way to generate spreadsheet documents in various formats. The library is written in a very flexible manner, and is prepared to also support loading spreadsheet files in the future and can be easely extented to support more formats.
Examples
To create a project which uses the fpspreadsheet library, add the fpspreadsheet_pkg package to it's Lazarus project, or add the base directory of fpspreadsheet to you compiler options if using another IDE.
Excel 5 example
<delphi> { excel5demo.dpr
Demonstrates how to write an Excel 5.x file using the fpspreadsheet library
You can change the output format by changing the OUTPUT_FORMAT constant
AUTHORS: Felipe Monteiro de Carvalho } program excel5demo;
{$mode delphi}{$H+}
uses
Classes, SysUtils, fpspreadsheet, fpsallformats, fpspreadsheet_pkg;
const OUTPUT_FORMAT = sfExcel5;
var
MyWorkbook: TsWorkbook; MyWorksheet: TsWorksheet; MyFormula: TRPNFormula; MyDir: string;
begin
// Open the output file MyDir := ExtractFilePath(ParamStr(0));
// Create the spreadsheet
MyWorkbook := TsWorkbook.Create;
MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
// Write some number cells MyWorksheet.WriteNumber(0, 0, 1.0); MyWorksheet.WriteNumber(0, 1, 2.0); MyWorksheet.WriteNumber(0, 2, 3.0); MyWorksheet.WriteNumber(0, 3, 4.0);
// Write the formula E1 = A1 + B1
// or, in RPN: A1, B1, +
SetLength(MyFormula, 3);
MyFormula[0].TokenID := INT_EXCEL_TOKEN_TREFV; {A1}
MyFormula[0].Col := 0;
MyFormula[0].Row := 0;
MyFormula[1].TokenID := INT_EXCEL_TOKEN_TREFV; {B1}
MyFormula[1].Col := 1;
MyFormula[1].Row := 0;
MyFormula[2].TokenID := INT_EXCEL_TOKEN_TADD; {+}
MyWorksheet.WriteRPNFormula(0, 4, MyFormula);
// Creates a new worksheet
MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet 2');
// Write some string cells MyWorksheet.WriteAnsiText(0, 0, 'First'); MyWorksheet.WriteAnsiText(0, 1, 'Second'); MyWorksheet.WriteAnsiText(0, 2, 'Third'); MyWorksheet.WriteAnsiText(0, 3, 'Fourth');
// Save the spreadsheet to a file MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT); MyWorkbook.Free;
end. </delphi>
Subversion
svn co https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/fpspreadsheet fpspreadsheet
Current Progress
| Format | Supports multiple sheets? | Reader Progress | Writter Progress |
|---|---|---|---|
| Excel 2.1 | No | Not implemented | Working |
| Excel 5.0 | Yes | Not implemented | Working, but only in Windows |
| Excel 8.0 | Yes | Not implemented | Not implemented |
| Microsoft OOXML | Yes | Not implemented | Experimental |
| OpenDocument | Yes | Not implemented | Experimental |
License
The same modified LGPL as the Lazarus Component Library
