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[0].AsString[0,1] := 'Cell 1';
(* 字符串颜色 *)
  XLS.Sheets[0].Cell[0,1].FillPatternForeColor := xcYellow;
(* 字体 *)
  XLS.Sheets[0].Cell[0,1].FontStyle := [xfsBold,xfsItalic];

(*Format a number cell (3 decimals and thousand separator)
  (* 格式化字符串，显示小数点后三位，千位和百位之间加个空格 *)
  XLS.Sheets[0].AsFloat[0,0] := 12335985394.895634;
  XLS.Sheets[0].Cell[0,0].NumberFormat := '# ##0.000';

(* Write a string cell.  *)
  XLS.Sheet[0].AsStringRef['C2'] := 'Hello';
(* 单元格赋值 *)
(* Set the font size of the cells in the area.
  (* 改变区域内的字体大小 *)
  XLS.Sheet[0].Range.Items[1,0,3,3].FontSize := 14;
(* Set the color of the cells. *)
(* 设置区域的颜色 *)
  XLS.Sheet[0].Range.ItemsRef['B1:D4'].FillPatternForeColor := xcYellow;
(* Set a outline border.   *)
(* 设置外框线的外形、颜色 *)
  XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineStyle := cbsThick;
(* Set color of the outline border.  *)
  XLS.Sheet[0].Range.ItemsRef['B1:D4'].BorderOutlineColor := xcRed;
(* Make a copy of the cells.  *)
(* 区域复制 *)
  XLS.Sheet[0].Range.ItemsRef['B1:D4'].Copy(8,10);
(* Move the cells. *)
(* 区域移动 *)
  XLS.Sheet[0].Range.ItemsRef['B1:D4'].Move(8,2);
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.