XlsxFrm.pas

unit XlsxFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, XlsxLib;

type
  TXlsxDlg = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  XlsxDlg: TXlsxDlg;

implementation

uses
  CellFormat;

{$R *.dfm}

procedure TXlsxDlg.Button1Click(Sender: TObject);
var
  xlsxFile: TXlsxFile;
begin
  xlsxFile := TXlsxFile.Create;
  xlsxFile.Workbook.Sheets[0].Cell[1, 1].Value := 'Hello';

  xlsxFile.Workbook.Sheets[0].Cell[2, 1].Value := 'Text 1';
  xlsxFile.Workbook.Sheets[0].Cell[2, 1].Format.Font.Size := 16;
  xlsxFile.Workbook.Sheets[0].Cell[2, 1].Format.Font.Style := [xfsBold];

  xlsxFile.Workbook.Sheets[0].Cell[1, 2].Value := 'Text 2';

  xlsxFile.Workbook.Sheets[0].Cell[2, 2].Value := 'Text 3';
  xlsxFile.Workbook.Sheets[0].Cell[2, 2].Format.Font.Size := 16;
  xlsxFile.Workbook.Sheets[0].Cell[2, 2].Format.Font.Style := [xfsBold, xfsItalic, xfsUnderline];
  xlsxFile.Workbook.Sheets[0].Cell[2, 2].Format.BottomBorder := xbsThick;
  xlsxFile.Workbook.Sheets[0].Cell[2, 2].Format.DiagonalBorder := xbsDotted;

  xlsxFile.Workbook.Sheets[0].Cell[1, 3].Value := 'TEXT';
  xlsxFile.Workbook.Sheets[0].Cell[1, 3].Format.Fill.PatternType := xptSolid;
  xlsxFile.Workbook.Sheets[0].Cell[1, 3].Format.Fill.Color := clBlue;

//  xlsxFile.Workbook.Sheets[0].Cell[2, 1].Value := 2;
//  xlsxFile.Workbook.Sheets[0].Cell[3, 1].Formula := 'A1+B1';

  xlsxFile.SaveToFile('C:\temp\mappe\test.xlsx');
  xlsxFile.Free;
end;

procedure TXlsxDlg.Button2Click(Sender: TObject);
var
  xlsxFile: TXlsxFile;
begin
  xlsxFile := TXlsxFile.Create;
  xlsxFile.LoadFromFile('C:\temp\mappe\test.xlsx');
  xlsxFile.Free;
end;

end.