设计模式、用Delphi实现---->Builder模式

 

 

Builder模式

起源

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

目的

将一个复杂的对象的构建与它的表示分离,使得同样的构建过程可以创建不同的表示

动机

一个生成器(Builder)与抽角工厂(Abstract Factory)从概念上来看有点类似。但不同的是,生成器将单一复杂的类的各个部件通过引用不同的构造器生成,然面抽象工厂则让你创建整个具体的类。比如说:一个建筑工可以构造房子、别墅、办公室。你可雇用不同的建筑工来构造砖房、木房。虽然你可指定房子的形状、大小。而其他肋手用来构造房子的部门、并非全部。比如构建窗了,门,停车场。

应用

 

下面的例子先引入了一个抽象类TabstractFormBuilder和它的两个具体子类TredFormBuilderTblueFormBuilderTabstractFormBuilder声明了一些类的构造器

 

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有三个抽象的工厂方法CreateFormCreateSpeedButtonCreateEditCreateEdit

·      TBlueFormBuilderTRedFormBuilder用来实现创建具体产品对象的方法

 

 

运行的时候,客户程序调用一个具体类的公共构造器来创建它某一些部分,具体的构造器实例的调用方法如下:

 

 

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;

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值