设计模式、用Delphi描述-->Factory Method模式

Factory Method模式（工厂方法）

起源

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

目的

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

动机

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

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

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

应用

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

TRedSpeedButton = class(TSpeedButton)

  public

    constructor Create(AOwner: TComponent); override;

  end;

 

constructor TRedSpeedButton.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  Font.Color := clRed;

end;

 

function TORedFactory.CreateSpeedButton(AOwner: TComponent): TSpeedButton;

begin

  Result := TRedSpeedButton.Create(AOwner);

end;

在上面的代码：

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

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