一、简单工厂模式（simple factory method）

抽象产品：如抽象类水果（Fruit）。

具体产品：如从Fruit继承下来的苹果、葡萄等。

工厂：负责生产各种水果。

unit FactoryMethodUnit;

interface
type
  TFruitID = (Grape,Apple);
  TFruit = class //抽象接口
  public
    constructor Create; virtual;
  end;
  TGrape= class(Fruit)//具体类
    constructor Create; override;
  end;
  TApple= class(Fruit)//具体类
    constructor Create; override;
  end;

  TCreator = class  //工厂
  public
    constructor Create; virtual;
    function CreateProduct(FruitID : TFruitID): TFruit; virtual; 
  end;

  TMyCreator = class(TCreator)
    constructor Create; override;
   function CreateProduct(FruitID : TFruitID): TFruit; override; //
  end;

implementation

function TCreator.CreateProduct(FruitID : TFruitID ): TFruit;
var
  aProduct: TFruit;
begin
  aProduct := nil;
  if FruitID = Grape then
    aProduct := TGrape.Create;
  if FruitID = Apple then
    aProduct := TApple.Create;
  Result := aProduct;
end;

constructor TGrape.Create;
begin
//......
end;

constructor TApple.Create;
begin
//......
end;

constructor TCreator.Create;
begin
//......
end;

constructor TMyCreator.Create;
begin
//......
end;

function TMyCreator.CreateProduct(FruitID : TFruitID ): TFruit;
var
  aProduct: TFruit;
  aCreator: TCreator;
begin

  aProduct := nil;
  if FruitID = Grape then
    aProduct := TGrape.Create;
  if FruitID = Apple then
    aProduct := TApple.Create;

  if aProduct = nil then
  begin
    aCreator := Tcreator.Create;
    aProduct := aCreator.CreateProduct(FruitID);
  end;
  Result := aProduct;
end;

 

end.

在简单工厂模式中，一个工厂类处于对产品类实例化的中心位置上，它知道每一个产
品，它决定哪一个产品类应当被实例化。这个模式的优点是允许客户端相对独立于产品创
建的过程，并且在系统引入新产品的时候无需修改客户端，也就是说，它在某种程度上支
持“开-闭”原则。这个模式的缺点是对“开-闭”原则的支持不够，因为如果有新的产品加入到系统中去，就需要修改工厂类，将必要的逻辑加入到工厂类中。