factorymethodunit2.pas

来自「DELPHI设计模式书籍」· PAS 代码 · 共 15 行

unit FactoryMethodUnit2;

interface
type
  TProduct = class
  public
    constructor Create; virtual;
  end;
  TCreator = class
  public
    constructor Create; virtual;

    function GetProduct(): TProduct;
  protected
    function CreateProduct(): TProduct; //