Builder模式

起源

Delphi中的Builder模式在基本Builder模式進(jìn)行了擴(kuò)展。更多Builder模式的資料請(qǐng)參閱 [Gam+]

目的

將一個(gè)復(fù)雜的對(duì)象的構(gòu)建與它的表示分離，使得同樣的構(gòu)建過(guò)程可以創(chuàng)建不同的表示

動(dòng)機(jī)

一個(gè)生成器（Builder）與抽角工廠（Abstract Factory）從概念上來(lái)看有點(diǎn)類似。但不同的是，生成器將單一復(fù)雜的類的各個(gè)部件通過(guò)引用不同的構(gòu)造器生成，然面抽象工廠則讓你創(chuàng)建整個(gè)具體的類。比如說(shuō)：一個(gè)建筑工可以構(gòu)造房子、別墅、辦公室。你可雇用不同的建筑工來(lái)構(gòu)造磚房、木房。雖然你可指定房子的形狀、大小。而其他肋手用來(lái)構(gòu)造房子的部門、并非全部。比如構(gòu)建窗了，門，停車場(chǎng)。

應(yīng)用

下面的例子先引入了一個(gè)抽象類TabstractFormBuilder和它的兩個(gè)具體子類TredFormBuilder、TblueFormBuilder。TabstractFormBuilder聲明了一些類的構(gòu)造器

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;

有上面的接口中:

?      聲明了一個(gè)創(chuàng)建抽象產(chǎn)品對(duì)象的接口：TAbstractFormBuilder

¨    類TAbstractFormBuilder有三個(gè)抽象的工廠方法CreateForm、CreateSpeedButton、CreateEdit、CreateEdit

?      TBlueFormBuilder、TRedFormBuilder用來(lái)實(shí)現(xiàn)創(chuàng)建具體產(chǎn)品對(duì)象的方法

運(yùn)行的時(shí)候，客戶程序調(diào)用一個(gè)具體類的公共構(gòu)造器來(lái)創(chuàng)建它某一些部分，具體的構(gòu)造器實(shí)例的調(diào)用方法如下：

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;