factorymethodunit2.pas

来自「设计模式delphi版给想学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; //