factorymethodunit1.pas

设计模式delphi版给想学delphi的朋友一个很有价值的参考

unit FactoryMethodUnit1;

interface
type
  TProductID = (MINE, YOURS, theirs);
  TProduct = class
  public
    constructor Create; virtual;
  end;
  TMyProduct = class(TProduct)
    constructor Create; override;
  end;
  TYourProduct = class(TProduct)
    constructor Create; override;
  end;
  TtheirProduct = class(TProduct)
    constructor Create; override;
  end;

  TCreator = class
  public
    constructor Create; virtual;
    function CreateProduct(ProductID: TProductID): TProduct; virtual; //