依然是java 與模式里的例子,（java 與模式 閆宏著) 以下是轉(zhuǎn)為delphi的代碼，這次加了注釋:)

unit BuilderPattern;

interface

type
  TPRoduct = class;

  //抽像建造者 規(guī)范接口

  TBuilder = class(TObject)
  public
    procedure builderpart1(); virtual; abstract;
    procedure builderpart2(); virtual; abstract;
    function returnProduct(): TProduct; virtual; abstract;
  end;

  //具體的創(chuàng)建者類(lèi),組件同他來(lái)創(chuàng)建,這樣客戶(hù)端不用知道具體的建造細(xì)節(jié)

  TConcreteBuilder = class(TBuilder)
  private
    product: TProduct;
  public
    procedure builderpart1(); override;
    procedure builderpart2(); override;
    function returnProduct(): TProduct; override;
  end;

  //產(chǎn)品類(lèi)

  TProduct = class(TObject)
  //
  end;

  //導(dǎo)演者角色，直接被客戶(hù)端使用 

 TDirector = class(TObject)
  private
    Builder: TBuilder;
  public
    procedure Initialize();
  end;
implementation

{ TDirector }

procedure TDirector.Initialize;
begin
  Builder := TConcreteBuilder.Create;
  Builder.builderpart1();
  Builder.builderpart2();
  Builder.returnProduct;
end;

{ TConcreteBuilder }

procedure TConcreteBuilder.builderpart1;
begin
  // your code
end;

procedure TConcreteBuilder.builderpart2;
begin
  // your code
end;

function TConcreteBuilder.returnProduct: TProduct;
begin
  Result := product;
end;

end.