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。
本文地址：http://com.8s8s.com/it/it5834.htm