FPSpreadsheet/de

var
      MyRPNFormula: TsRPNFormula;
    begin
      // Schreibt die Formel =4+5
      MyWorksheet.WriteUTF8Text(3, 0, '=4+5'); // A4
      //
      SetLength(MyRPNFormula, 3);
      MyRPNFormula[0].ElementKind := fekNum;
      MyRPNFormula[0].DoubleValue := 4.0;
      MyRPNFormula[1].ElementKind := fekNum;
      MyRPNFormula[1].DoubleValue := 5.0;
      MyRPNFormula[2].ElementKind := fekAdd;
      MyWorksheet.WriteRPNFormula(3, 2, MyRPNFormula);
    end;

// =Sum(E2:e5)
      MyWorksheet.WriteUTF8Text(1, 0, '=Sum(E2:e5)'); // A2
      //
      SetLength(MyRPNFormula, 2);
      MyRPNFormula[0].ElementKind := fekCellRange;
      MyRPNFormula[0].Row := 1;
      MyRPNFormula[0].Row2 := 4;
      MyRPNFormula[0].Col := 4;
      MyRPNFormula[0].Col2 := 4;
      MyRPNFormula[1].ElementKind := fekOpSUM;
      MyWorksheet.WriteRPNFormula(1, 2, MyRPNFormula);   // C2

// Schreibt die Formel E1 = ABS(A1)
      SetLength(MyRPNFormula, 2);
      MyRPNFormula[0].ElementKind := fekCell;
      MyRPNFormula[0].Col := 0;
      MyRPNFormula[0].Row := 0;
      MyRPNFormula[1].ElementKind := fekABS;
      MyWorksheet.WriteRPNFormula(0, 4, MyRPNFormula);
    
      // Schreibt die Formel F1 = ROUND(A1, 0)
      SetLength(MyRPNFormula, 3);
      MyRPNFormula[0].ElementKind := fekCell;
      MyRPNFormula[0].Col := 0;
      MyRPNFormula[0].Row := 0;
      MyRPNFormula[1].ElementKind := fekNum;
      MyRPNFormula[1].DoubleValue := 0.0;
      MyRPNFormula[2].ElementKind := fekROUND;
      MyWorksheet.WriteRPNFormula(0, 5, MyRPNFormula);

{
    excel5demo.dpr
    
    Demonstriert, wie man eine Excel 5.x Datei schreibt unter Verwendung der fpspreadsheet-Bibliothek.
    
    Sie können das Ausgabe-Format festlegen indem Sie die Konstante OUTPUT_FORMAT ändern.
    
    AUTOR: 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: TsRPNFormula;
      MyDir: string;
    begin
      // Initialisierung
      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);
    
      // Schreibt die Formel E1 = A1 + B1
      // oder, in RPN: A1, B1, +
      SetLength(MyFormula, 3);
      MyFormula[0].ElementKind:=fekCell; {A1}
      MyFormula[0].Col := 0;
      MyFormula[0].Row := 0;
      MyFormula[1].ElementKind:=fekCell; {B1}
      MyFormula[1].Col := 1;
      MyFormula[1].Row := 0;
      MyFormula[2].ElementKind:=fekAdd;;  {+}
      MyWorksheet.WriteRPNFormula(0, 4, MyFormula);
    
      // Erzeugt ein neues Arbeitsblatt
      MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet 2');
    
      // Schreibt einige Zeichen in Zellen
      MyWorksheet.WriteUTF8Text(0, 0, 'Erster');
      MyWorksheet.WriteUTF8Text(0, 1, 'Zweiter');
      MyWorksheet.WriteUTF8Text(0, 2, 'Dritter');
      MyWorksheet.WriteUTF8Text(0, 3, 'Vierter');
    
      // Speichert das Kalkulationsblatt in eine Datei
      MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT);
      MyWorkbook.Free;
    end.

MyWorkbook.ReadFromFile(AFileName, sfExcel5);

MyWorkbook.ReadFromFile(AFileName);

procedure TsWorkbook.WriteToFile(const AFileName: string; const AOverwriteExisting: Boolean = False); overload;
    var SheetType: TsSpreadsheetFormat;
    begin
        if getFormatFromFileName(AFileName, SheetType) then
           WriteToFile(AFileName, SheetType, AOverwriteExisting)
        else raise Exception.Create(Format(
           '[TsWorkbook.WriteToFile] Attempted to save a spreadsheet by extension, but the extension %s is invalid.', [ExtractFileExt(AFileName)]));
    end;

var
      MyWorkbook: TsWorkbook;
      MyWorksheet: TsWorksheet;
      i: Integer;
    begin
      // Hier wird MyWorkbook aus einer Datei geladen oder neu erzeugt
     
      for i := 0 to MyWorkbook.GetWorksheetCount() - 1 do
      begin
        MyWorksheet := MyWorkbook.GetWorksheetByIndex(i);
        // Mach etwas mit MyWorksheet
      end;

program db5xls;
     
    {$mode delphi}{$H+}
     
    uses
      Classes, SysUtils, 
      // alle notwendigen Datenbank-Units hinzufügen
      fpspreadsheet, fpsallformats, fpspreadsheet_pkg;
     
    const OUTPUT_FORMAT = sfExcel5;
     
    var
      MyWorkbook: TsWorkbook;
      MyWorksheet: TsWorksheet;
      MyDatabase: TSdfDataset;
      MyDir: string;
      i, j: Integer;
    begin
      // Initialisierung
      MyDir := ExtractFilePath(ParamStr(0));
     
      // die Datenbank öffnen
      MyDatabase := TSdfDataset.Create;
      MyDatabase.Filename := 'test.dat';
      // hier die Tabellenbeschreibung hinzufügen
      MyDatabase.Active := True;
    
      // Erzeugt die Kalkulationstabelle
      MyWorkbook := TsWorkbook.Create;
      MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
     
      // die Feldnamen schreiben
      for i := 0 to MyDatabase.Fields.Count - 1 do
        MyWorksheet.WriteUTF8Text(0, i, MyDatabase.Field[i].FieldName);
    
      // alle Felder in das Arbeitsblatt schreiben
      MyDatabase.First;
      j := 0;
      while not MyDatabase.EOF do
      begin
        for i := 0 to MyDatabase.Fields.Count - 1 do
          MyWorksheet.WriteUTF8Text(j + 1, i, MyDatabase.Field[i].AsString);
    
        MyDatabase.Next;
        Inc(j);
      end;
    
      // die Datenbank schließen
      MyDatabase.Active := False;
      MyDatabase.Free;
    
      // Save the spreadsheet to a file
      MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT);
      MyWorkbook.Free;
    end.

program ods2xls;
     
    {$mode delphi}{$H+}
     
    uses
      Classes, SysUtils, 
      fpspreadsheet, fpsallformats, fpspreadsheet_pkg;
     
    const 
      INPUT_FORMAT = sfOpenDocument;
      OUTPUT_FORMAT = sfExcel8;
     
    var
      MyWorkbook: TsWorkbook;
      MyDir: string;
    begin
      // Initialisierung
      MyDir := ExtractFilePath(ParamStr(0));
     
      // Konvertiert die Kalkulationstabelle
      MyWorkbook := TsWorkbook.Create;
      try
        MyWorkbook.ReadFromFile(MyDir + 'test.ods', INPUT_FORMAT);
        MyWorkbook.WriteToFile(MyDir + 'test.xls', OUTPUT_FORMAT);
      finally
        MyWorkbook.Free;
      end;
    end.

// Erzeugt einen fett geschriebenen Text
      MyWorksheet.WriteUTF8Text(0, 0, 'First');
      MyWorksheet.WriteUsedFormatting(0, 0, [uffBold]);

// Schreibt in Fettschrift
      MyWorksheet.WriteUTF8Text(0, 0, 'First');
      MyCell := MyWorksheet.GetCell(0, 0);
      MyCell^.TextRotation := rt90DegreeClockwiseRotation;
      MyCell^.UsedFormattingFields := [uffTextRotation];

// Schreibt einen Text mit Rand und Hintergrundfarbe
      MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');// J6
      MyCell := MyWorksheet.GetCell(5, 9);
      MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
      MyCell^.UsedFormattingFields := [uffBorder, uffBold, uffBackgroundColor];

{@@ Farben in FPSpreadsheet wie festgelegt in einer Excel-kompatiblen Palette }
    
      TsColor = (
        scBlack,    // 000000H
        scWhite,    // FFFFFFH
        scRed,      // FF0000H
        scGREEN,    // 00FF00H
        scBLUE,     // 0000FFH
        scYELLOW,   // FFFF00H
        scMAGENTA,  // FF00FFH
        scCYAN,     // 00FFFFH
        scDarkRed,  // 800000H
        scDarkGreen,// 008000H
        scDarkBlue, // 000080H
        scOLIVE,    // 808000H
        scPURPLE,   // 800080H
        scTEAL,     // 008080H
        scSilver,   // C0C0C0H
        scGrey      // 808080H
        //
        scGrey10pct,// E6E6E6H
        scGrey20pct // CCCCCCH
      );

// Schreibt einen Text mit Hintergrundfarbe
      MyWorksheet.WriteUTF8Text(0, 0, 'Test');
      MyCell := MyWorksheet.GetCell(0, 0);
      MyCell^.BackgroundColor := scSilver;
      MyCell^.UsedFormattingFields := [uffBackgroundColor];

// Schreibt einen Text mit Rand und mit Hintergrundfarbe
      MyWorksheet.WriteUTF8Text(5, 9, '[N,W,E,S]');
      MyCell := MyWorksheet.GetCell(5, 9);
      MyCell^.Border := [cbNorth, cbWest, cbEast, cbSouth];
      MyCell^.UsedFormattingFields := [uffBorder, uffBold, uffBackgroundColor];

svn checkout svn://svn.code.sf.net/p/lazarus-ccr/svn/components/fpspreadsheet fpspreadsheet