转 Delphi中XLSReadWrite控件的使用，2---基本应用

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.