unit BuilderPattern;

interface

type
TProduct = class;

//抽像建造者 规范接口

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

//具体的创建者类,组件同他来创建,这样客户端不用知道具体的建造细节

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

//产品类

TProduct = class(TObject)
//
end;

//导演者角色，直接被客户端使用

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.