uexcelagenthelper.pas

来自「抽象三层访问数据库示例」· PAS 代码 · 共 24 行

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.