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;

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