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

核心提示：Builder模式起源Delphi中的Builder模式在基本Builder模式进行了扩展，更多Builder模式的资料请参阅 [Gam+]目的将一个复杂的对象的构建与它的表示分离，设计模式、用Delphi实现－－－－>Builder模式，使得同样的构建过程可以创建不同的表示动机一个生成器（Builder）与抽角

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;