Factory Method

起源<o:p></o:p>

Delphi中的Factory Method模式在基本Factory Method模式进行了扩展。更多Factory Method模式的资料请参阅 [Gam+]<o:p></o:p>

目的<o:p></o:p>

定义一个用于创建对象的接口，让子类决定实例化哪一个类。Factory Method模式使一个类的实例化延迟到其子类。<o:p></o:p>

动机<o:p></o:p>

与Abstract Factory不同的是：Abstract Factory用于创建类具体对象，而Factory Method用于创建类。抽象工厂（Abstact Factory）模式的看作是工厂方法（Factory Methods）的一个集合。

此模式封装了类构造并将具体类与客户程序通过抽象接口完全分离。

一个这样的例了，你有一个面向对象的商业系统，可能要处理多个目标数据库系统。些时，客户程只需知道相关的商业类，而没必要了解它们的具体应用：存储、获取。

应用

在Abstract Factory的例子中，每一个虚拟的特色构造器函数是一个Factory Method。在它们的实现中返回了一个指定的特色类。

TRedSpeedButton = class(TSpeedButton)<o:p></o:p>

  public<o:p></o:p>

    constructor Create(AOwner: TComponent); override;<o:p></o:p>

  end;<o:p></o:p>

 <o:p></o:p>

constructor TRedSpeedButton.Create(AOwner: TComponent);<o:p></o:p>

begin<o:p></o:p>

  inherited Create(AOwner);<o:p></o:p>

  Font.Color := clRed;<o:p></o:p>

end;<o:p></o:p>

 <o:p></o:p>

function TORedFactory.CreateSpeedButton(AOwner: TComponent): TSpeedButton;<o:p></o:p>

begin<o:p></o:p>

  Result := TRedSpeedButton.Create(AOwner);<o:p></o:p>

end;<o:p></o:p>

在上面的代码：

·      TORedFactory定义一个工厂方法，并返回TredSpeedButton实例

而返回对象真正的构者是TredSpeedButton。