main.pas

一个经典的读写Excel的控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, BIFFRecsII2, XLSFonts2, XLSReadWriteII2, Hyperlink2;

type
  TfrmMain = class(TForm)
    Button1: TButton;
    edCol: TEdit;
    edRow: TEdit;
    edCellValue: TEdit;
    edAddress: TEdit;
    edTooltip: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edFilename: TEdit;
    Button4: TButton;
    dlgSave: TSaveDialog;
    XLS: TXLSReadWriteII2;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.Button4Click(Sender: TObject);
begin
  dlgSave.FileName := edFilename.Text;
  if dlgSave.Execute then
    edFilename.Text := dlgSave.FileName;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  with XLS.Sheets[0].Hyperlinks.Add do begin
    Col1 := StrToInt(edCol.Text);
    Col2 := Col1;
    Row1 := StrToInt(edRow.Text);
    Row2 := Row1;
    Description := edCellValue.Text;
    // Hyperlinks don't insert the cell value.
    XLS.Sheets[0].AsString[Col1,Row1] := Description;
    XLS.Sheets[0].Cell[Col1,Row1].FontColor := xcBlue;
    XLS.Sheets[0].Cell[Col1,Row1].FontUnderline := xulSingle;

    Address := edAddress.Text;
    ToolTip := edToolTip.Text;
  end;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
  XLS.Filename := edFilename.Text;
  XLS.Write;
end;

end.