factorymethodunit3.pas

来自「设计模式delphi版给想学delphi的朋友一个很有价值的参考」· PAS 代码 · 共 47 行

unit FactoryMethodUnit3;

interface
type
  TProduct = class
  public
    constructor Create; virtual;
    destructor Destroy; override;
  end;
    TMyProduct = class(TProduct)
  public
    constructor Create; virtual;
    destructor Destroy; override;
  end;

  TCreator = class
  public
    constructor Create; virtual;
    destructor Destroy; override;

    function CreateProduct(): TProduct; virtual;
  end;

  TStandardCreator = class(TCreator)
  public
    constructor Create; virtual;
    destructor Destroy; override;
    function CreateProduct(): TProduct; override;
  private
    FTheProduct: TProduct;
  end;


implementation

constructor TProduct.Create;
begin
//......
end;

destructor TProduct.Destroy;
begin
//......
end;
end.