Builder
起源
Delphi中的Builder模式在基本Builder模式进行了扩展。更多Builder模式的资料请参阅 [Gam+]<o:p></o:p>
目的
将一个复杂的对象的构建与它的表示分离，使得同样的构建过程可以创建不同的表示<o:p></o:p>
动机
一个生成器（Builder）与抽角工厂（Abstract Factory）从概念上来看有点类似。但不同的是，生成器将单一复杂的类的各个部件通过引用不同的构造器生成，然面抽象工厂则让你创建整个具体的类。比如说：一个建筑工可以构造房子、别墅、办公室。你可雇用不同的建筑工来构造砖房、木房。虽然你可指定房子的形状、大小。而其他肋手用来构造房子的部门、并非全部。比如构建窗了，门，停车场。<o:p></o:p>
应用
<o:p></o:p>
下面的例子先引入了一个抽象类TabstractFormBuilder和它的两个具体子类TredFormBuilder、TblueFormBuilder。TabstractFormBuilder声明了一些类的构造器
<o:p></o:p>
type<o:p></o:p>
TAbstractFormBuilder = class<o:p></o:p>
private<o:p></o:p>
FForm: TForm;<o:p></o:p>
procedure BuilderFormClose(Sender: TObject; var Action: TCloseAction);<o:p></o:p>
protected<o:p></o:p>
function GetForm: TForm; virtual;<o:p></o:p>
public<o:p></o:p>
procedure CreateForm(AOwner: TComponent); virtual;<o:p></o:p>
procedure CreateSpeedButton; virtual; abstract;<o:p></o:p>
procedure CreateEdit; virtual; abstract;<o:p></o:p>
procedure CreateLabel; virtual; abstract;<o:p></o:p>
property Form: TForm read GetForm;<o:p></o:p>
end;<o:p></o:p>
<o:p></o:p>
type<o:p></o:p>
TRedFormBuilder = class(TAbstractFormBuilder)<o:p></o:p>
private<o:p></o:p>
FNextLeft, FNextTop: Integer;<o:p></o:p>
public<o:p></o:p>
procedure CreateForm(AOwner: TComponent); override;<o:p></o:p>
procedure CreateSpeedButton; override;<o:p></o:p>
procedure CreateEdit; override;<o:p></o:p>
procedure CreateEdit; override;<o:p></o:p>
end;<o:p></o:p>
<o:p></o:p>
type<o:p></o:p>
TBlueFormBuilder = class(TAbstractFormBuilder)<o:p></o:p>
private<o:p></o:p>
FNextLeft, FNextTop: Integer;<o:p></o:p>
public<o:p></o:p>
procedure CreateForm(AOwner: TComponent); override;<o:p></o:p>
procedure CreateSpeedButton; override;<o:p></o:p>
procedure CreateEdit; override;<o:p></o:p>
procedure CreateLabel; override;<o:p></o:p>
end;<o:p></o:p>
有上面的接口中:
· 声明了一个创建抽象产品对象的接口：TAbstractFormBuilder
¨ 类TAbstractFormBuilder有三个抽象的工厂方法CreateForm、CreateSpeedButton、CreateEdit、CreateEdit
· TBlueFormBuilder、TRedFormBuilder用来实现创建具体产品对象的方法
<o:p></o:p>
<o:p></o:p>
运行的时候，客户程序调用一个具体类的公共构造器来创建它某一些部分，具体的构造器实例的调用方法如下：
<o:p></o:p>
<o:p></o:p>
procedure TForm1.Create3ComponentFormUsingBuilder(ABuilder: TAbstractFormBuilder);<o:p></o:p>
var<o:p></o:p>
NewForm: TForm;<o:p></o:p>
begin<o:p></o:p>
with ABuilder do begin<o:p></o:p>
CreateForm(Application);<o:p></o:p>
CreateEdit;<o:p></o:p>
CreateSpeedButton;<o:p></o:p>
CreateLabel;<o:p></o:p>
NewForm := Form;<o:p></o:p>
if NewForm <> nil then NewForm.Show;<o:p></o:p>
end;<o:p></o:p>
end;<o:p></o:p>