main.pas

一个经典的读写Excel的控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XLSReadWriteII2, Escher2;

type
  TfrmMain = class(TForm)                 
    XLS: TXLSReadWriteII2;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

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

procedure TfrmMain.Button1Click(Sender: TObject);
var
  i,Row: integer;
begin
  XLS.Filename := 'ShapeTest.xls';
  Row := 1;
  for i := 0 to Integer(High(TAutoShapeType)) do begin
    with XLS.Sheets[0].DrawingObjects.AutoShapes.Add do begin
      Row1 := Row;
      Row2 := Row + 3;
      ShapeType := TAutoShapeType(i);
      FillColor := (Random($FF) shl 16) + (Random($FF) shl 8) + Random($FF);
      LineColor := (Random($FF) shl 16) + (Random($FF) shl 8) + Random($FF);
      Inc(Row,4);
    end;
  end;
  XLS.Write;
end;

end.