lazarus + Excel 5 example

猫工

在官网上找到的
Excel 5 example

2. {
3. excel5demo.dpr
5. Demonstrates how to write an Excel 5.x file using the fpspreadsheet library
7. You can change the output format by changing the OUTPUT_FORMAT constant
9. AUTHORS: Felipe Monteiro de Carvalho
10. }
11. program excel5demo;
13. {$mode delphi}{$H+}
15. uses
16.   Classes, SysUtils, fpspreadsheet, fpsallformats, fpspreadsheet_pkg;
18. const OUTPUT_FORMAT = sfExcel5;
20. var
21.   MyWorkbook: TsWorkbook;
22.   MyWorksheet: TsWorksheet;
23.   MyFormula: TsRPNFormula;
24.   MyDir: string;
25. begin
26.   // Initialization
27.   MyDir := ExtractFilePath(ParamStr(0));
29.   // Create the spreadsheet
30.   MyWorkbook := TsWorkbook.Create;
31.   MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
33.   // Write some number cells
34.   MyWorksheet.WriteNumber(0, 0, 1.0);
35.   MyWorksheet.WriteNumber(0, 1, 2.0);
36.   MyWorksheet.WriteNumber(0, 2, 3.0);
37.   MyWorksheet.WriteNumber(0, 3, 4.0);
39.   // Write the formula E1 = A1 + B1
40.   // or, in RPN: A1, B1, +
41.   SetLength(MyFormula, 3);
42.   MyFormula[0].ElementKind:=fekCell; {A1}
43.   MyFormula[0].Col := 0;
44.   MyFormula[0].Row := 0;
45.   MyFormula[1].ElementKind:=fekCell; {B1}
46.   MyFormula[1].Col := 1;
47.   MyFormula[1].Row := 0;
48.   MyFormula[2].ElementKind:=fekAdd;;  {+}
49.   MyWorksheet.WriteRPNFormula(0, 4, MyFormula);
51.   // Creates a new worksheet
52.   MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet 2');
54.   // Write some string cells
55.   MyWorksheet.WriteUTF8Text(0, 0, 'First');
56.   MyWorksheet.WriteUTF8Text(0, 1, 'Second');
57.   MyWorksheet.WriteUTF8Text(0, 2, 'Third');
58.   MyWorksheet.WriteUTF8Text(0, 3, 'Fourth');
60.   // Save the spreadsheet to a file
61.   MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT);
62.   MyWorkbook.Free;
63. end.

复制代码

猫工

需要FPSpreadsheet包
svn获取命令：

2. svn co https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/fpspreadsheet fpspreadsheet

复制代码

猫工

要创建一个项目，它使用fpspreadsheet库，添加fpspreadsheet_pkg包到它的Lazarus的项目，或添加fpspreadsheet基本目录的编译器选项，如果你使用其他的IDE。

xx928

需要FPSpreadsheet包
svn获取命令

不明白，为什么不提供附件下载呢