unit Main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, XLSReadWriteII4, XLSFonts4, CellFormats4, BIFFRecsII4;

type

  TfrmMain = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    edFilename: TEdit;

    Button2: TButton;

    Button3: TButton;

    dlgSave: TSaveDialog;

    XLS: TXLSReadWriteII4;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    procedure AddFormats;

  public

    { Public declarations }

  end;

var

  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.AddFormats;

begin

  (*Format a single cell*)

  (* 显示字符串 *)

  XLS.Sheets[].AsString[,] := 'Cell 1';

  (* 字符串颜色 *)

  XLS.Sheets[].Cell[,].FillPatternForeColor := xcYellow;

  (* 字体 *)

  XLS.Sheets[].Cell[,].FontStyle := [xfsBold,xfsItalic];

  (*Format a number cell (3 decimals and thousand separator)

  (* 格式化字符串，显示小数点后三位，千位和百位之间加个空格 *)

  XLS.Sheets[].AsFloat[,] := 12335985394.895634;

  XLS.Sheets[].Cell[,].NumberFormat := '# ##0.000';

  (* Write a string cell.  *)

  XLS.Sheet[].AsStringRef['C2'] := 'Hello';

  (* 单元格赋值 *)

  (* Set the font size of the cells in the area.

  (* 改变区域内的字体大小 *)

  XLS.Sheet[].Range.Items[,,,].FontSize := ;

  (* Set the color of the cells. *)

  (* 设置区域的颜色 *)

  XLS.Sheet[].Range.ItemsRef['B1:D4'].FillPatternForeColor := xcYellow;

  (* Set a outline border.   *)

  (* 设置外框线的外形、颜色 *)

  XLS.Sheet[].Range.ItemsRef['B1:D4'].BorderOutlineStyle := cbsThick;

  (* Set color of the outline border.  *)

  XLS.Sheet[].Range.ItemsRef['B1:D4'].BorderOutlineColor := xcRed;

  (* Make a copy of the cells.  *)

  (* 区域复制 *)

  XLS.Sheet[].Range.ItemsRef['B1:D4'].Copy(,);

  (* Move the cells. *)

  (* 区域移动 *)

  XLS.Sheet[].Range.ItemsRef['B1:D4'].Move(,);

end;

procedure TfrmMain.Button1Click(Sender: TObject);

begin

  AddFormats;

  XLS.Filename := edFilename.Text;

  (* 保存文件 *)

  XLS.Write;

end;

procedure TfrmMain.Button2Click(Sender: TObject);

begin

  dlgSave.FileName := edFilename.Text;

  if dlgSave.Execute then

    edFilename.Text := dlgSave.FileName;

end;

procedure TfrmMain.Button3Click(Sender: TObject);

begin

  Close;

end;

end.