|
Builder模式
起源
Delphi中的Builder模式在基本Builder模式进行了扩展。更多Builder模式的资料请参阅 [Gam+]
目的
将一个复杂的对象的构建与它的表示分离，使得同样的构建过程可以创建不同的表示
动机
一个生成器（Builder）与抽角工厂（Abstract Factory）从概念上来看有点类似。但不同的是，生成器将单一复杂的类的各个部件通过引用不同的构造器生成，然面抽象工厂则让你创建整个具体的类。比如说：一个建筑工可以构造房子、别墅、办公室。你可雇用不同的建筑工来构造砖房、木房。虽然你可指定房子的形状、大小。而其他肋手用来构造房子的部门、并非全部。比如构建窗了，门，停车场。
应用
下面的例子先引入了一个抽象类TabstractFormBuilder和它的两个具体子类TredFormBuilder、TblueFormBuilder。TabstractFormBuilder声明了一些类的构造器
type
TAbstractFormBuilder = class
private
FForm: TForm;
procedure BuilderFormClose(Sender: TObject; var Action: TCloseAction);
protected
function GetForm: TForm; virtual;
public
procedure CreateForm(AOwner: TComponent); virtual;
procedure CreateSpeedButton; virtual; abstract;
procedure CreateEdit; virtual; abstract;
procedure CreateLabel; virtual; abstract;
property Form: TForm read GetForm;
end;
type
TRedFormBuilder = class(TAbstractFormBuilder)
private
FNextLeft, FNextTop: Integer;
public
procedure CreateForm(AOwner: TComponent); override;
procedure CreateSpeedButton; override;
procedure CreateEdit; override;
procedure CreateEdit; override;
end;
type
TBlueFormBuilder = class(TAbstractFormBuilder)
private
FNextLeft, FNextTop: Integer;
public
procedure CreateForm(AOwner: TComponent); override;
procedure CreateSpeedButton; override;
procedure CreateEdit; override;
procedure CreateLabel; override;
end;
有上面的接口中:
· 声明了一个创建抽象产品对象的接口：TAbstractFormBuilder
¨ 类TAbstractFormBuilder有三个抽象的工厂方法CreateForm、CreateSpeedButton、CreateEdit、CreateEdit
· TBlueFormBuilder、TRedFormBuilder用来实现创建具体产品对象的方法
运行的时候，客户程序调用一个具体类的公共构造器来创建它某一些部分，具体的构造器实例的调用方法如下：
procedure TForm1.Create3ComponentFormUsingBuilder(ABuilder: TAbstractFormBuilder);
var
NewForm: TForm;
begin
with ABuilder do begin
CreateForm(Application);
CreateEdit;
CreateSpeedButton;
CreateLabel;
NewForm := Form;
if NewForm <> nil then NewForm.Show;
end;
end;
[Web开发]通过伪静态规则实现子目录绑定 [Web开发]利用QQWry.Dat实现IP 地址高效检索
[Web开发]巧妙运用PHP函数实现采集器的制作 [Web开发]用PHP实现Javascript的escape(),unescape()的方法
[网页制作]利用HTML meta refresh 实现页面刷新与跳转(重定向… [实用文档]基于WebGIS的杭州公交线路查询系统设计与实现毕业…
[办公软件]如何在Powerpoint 中(实现)输入上标、下标 [办公软件]如何实现Office工具栏、菜单以及菜单命令重命名
[办公软件]PowerPoint XP技巧之实现字幕上下移动动画 [办公软件]利用录制旁白功能在PowerPoint实现各种声音格式的…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
