设计模式、用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。