uexcelagenthelper.pas

抽象三层访问数据库示例

unit uExcelAgentHelper;

interface

uses Classes, SysUtils, uIExcelAgent, uXLSReadWriteAgent;

type
  TExcelAgentHelper = class
  public
    class function GetExcelAgentInstance(AOwner: TComponent): IExcelAgent;
  end;

implementation

{ TExcelAgentHelper }

class function TExcelAgentHelper.GetExcelAgentInstance(
  AOwner: TComponent): IExcelAgent;
begin
  Result := TXLSReadWriteAgent.Create(AOwner);
end;

end.