{*******************************************************}
{       軟件名稱(chēng): --通用--                              }
{       單元名稱(chēng): uIExcelAgent.pas                      }
{       中文名稱(chēng): Excel訪(fǎng)問(wèn)代理接口                     }
{       單元描述:                                       }
{       創(chuàng)    建: SamonHua                              }
{       創(chuàng)建日期: 2007-12-19                            }
{       修    改: 參見(jiàn)VSS記錄                           }
{       版權(quán)所有 (C)2002-2007 深圳壹平臺(tái)信息技術(shù)有限公司}
{*******************************************************}
unit uIExcelAgent;

interface

uses
  Windows, Classes, SysUtils, Variants;

type
  IExcelAgent = interface(IInterface)
    ['{CF5546F7-AEB7-4F37-94D3-D54C497BC544}']
    //Excel文件名讀寫(xiě)方法
    function GetFileName: string;
    procedure SetFileName(Value: string);
    //讀入和保存文件
    procedure ReadFile;
    procedure WriteFile;
    procedure WriteToStream(Stream: TStream);
    //Sheet相關(guān)
    //激活Sheet，所有的讀寫(xiě)操作都是針對(duì)當(dāng)前的Sheet
    function ActivateSheet(SheetIndex: integer): boolean;
    function GetSheetCount: Integer;
    function GetActiveSheetIndex: integer;
    function GetActiveSheetName: string;
    function AddSheet(SheetName: string): Integer;
    function InsertSheet(SheetName: string; SheetIndex: Integer = -1): Integer;
    procedure DeleteSheet(SheetIndex: Integer = -1);
    //單元格讀方法
    function GetCellValue(Col, Row: integer): Variant; 
    function GetCellStringValue(Col, Row: integer; Default: string = ''): string;
    function GetCellIntegerValue(Col, Row: integer; Default: Integer = 0): Integer;
    function GetCellFloatValue(Col, Row: integer; Default: Double = 0): Double;
    function GetCellDateTimeValue(Col, Row: integer): TDateTime; 
    function GetCellBooleanValue(Col, Row: integer; Default: Boolean = False): Boolean;
    //單元格寫(xiě)方法
    procedure SetCellValue(Col, Row: integer; Value: Variant);
    procedure SetCellStringValue(Col, Row: integer; Value: string);
    procedure SetCellIntegerValue(Col, Row: integer; Value: integer);
    procedure SetCellFloatValue(Col, Row: integer; Value: Double);
    procedure SetCellDateTimeValue(Col, Row: integer; Value: TDateTime);
    procedure SetCellBooleanValue(Col, Row: integer; Value: Boolean);
    //合并/拆分單元格
    procedure MergedCells(Col1, Row1, Col2, Row2: integer);
    procedure DeleteMergedCell(Col1, Row1, Col2, Row2: integer);
    procedure DeleteMergedCellByCell(Col, Row: integer);
    //獲取包含指定單元格的坐標(biāo)
    function GetMergedCell(Col, Row: integer; var Col1, Row1, Col2, Row2: integer): boolean;
  end;

implementation

{ TExcelAgentHelper }

end.