一個導出Excel非常快的類

　　unit DBGridEhToExcel;

　　interface
　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, ShellApi;

　　type
　　  TTitleCell = array of array of String;

　　  //分解DBGridEh的標題
　　  TDBGridEhTitle = class
　　  private
　　    FDBGridEh: TDBGridEh;  //對應DBGridEh
　　    FColumnCount: integer; //DBGridEh列數(指visible為True的列數)
　　    FRowCount: integer;    //DBGridEh多表頭層數(沒有多表頭則層數為1)
　　    procedure SetDBGridEh(const Value: TDBGridEh);
　　    function GetTitleRow: integer;    //獲取DBGridEh多表頭層數
　　    function GetTitleColumn: integer; //獲取DBGridEh列數
　　  public
　　    //分解DBGridEh標題，由TitleCell二維動態數組返回
　　    procedure GetTitleData(var TitleCell: TTitleCell);
　　  published
　　    property DBGridEh: TDBGridEh read FDBGridEh write SetDBGridEh;
　　    property ColumnCount: integer read FColumnCount;
　　    property RowCount: integer read FRowCount;
　　  end;

　　  TDBGridEhToExcel = class(TComponent)
　　  private
　　    FCol: integer;
　　    FRow: integer;
　　    FProgressForm: TForm;                                  {進度窗體}
　　    FGauge: TGauge;                                        {進度條}
　　    Stream: TStream;                                       {輸出文件流}
　　    FBookMark: TBookmark;                                 
　　    FShowProgress: Boolean;                         &

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一頁  >>