Delphi之Factory Method(工厂模式)

工厂方法(Factory Method)模式，又称虚构造子(Virtual Constructor)模式或多态工厂模式。工厂模式定义创建对象的借口，并由派生类决定哪一个类来创建对象。也就是说，工厂方法将创建对象的责任委托给派生类。这是因为基类并不知道要创建的对象是哪一个类的实例，所以将创建对象的责任委托给派生类，或者将实际创建工作延迟到派生类中完成。

 

TCPU = class(TObject)
end;

TAMDCPU = class(TCPU)
end;

TIntelCPU = class(TCPU)
end;

TCPUFactory = class(TObject)
public
 //将对象的创建转移到派生类
  function CreateCPU: TCPU; virtual; abstract;
end;

TAMDCPUFactory = class(TCPUFactory)
public
  function CreateCPU; TCPU; override;
end;

TIntelCPUFactory = class(TCPUFactory)
public
  function CreateCPU: TCPU; override
end;

看一下具体的实现

 

function TAMDCPUFactory.CreateCPU: TCPU;
begin
  Result := TAMDCPU.Create;
end;

 

再来看客户端，在未使用工厂方法前

 

TComputer = class(TObject)
private
  FAMDCPU: TAMDCPU;
public
end;

FAMDCPU := TAMDCPU.Create;

 

使用工厂方法以后

 

TComputer = class(TObject)
private
  FAMDCPU: TCPU;
  AMDCPUFactory; TFactory;
public
end;

FAMDCPU := AMDCPUFactory.CreateCPU;

 

这个时候，TComputer类中的FAMDCPU声明为了一个TCPU而不是具体的CPU.

再来看参数化工厂

 

TCPUFactory = class(TObject)
public
  function CreateCPU(CPUType: TCPUType): TCPU;
end;

function TCPUFactory.CreateCPU(CPUType: TCPUType): TCPU;
begin
  case CPUType of
    tpAMD: Result := TAMDCPU.Create;
    tpIntel: Result := TIntelCPU.Create;
  end;
end;

 

参数化工厂把不同对象的创建以一个统一的接口实现。