建造者模式-Delphi述

　2006-02-04 13:46:40　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閻忔氨鈧凹鍓熷娲垂椤曞懎鍓伴梺閫炲苯澧紒澶婄秺瀵濡歌閸嬫捇妫冨☉娆忔殘闂佷紮缍€娴滎剟鍩€椤掑倹鏆柛瀣躬瀹曚即寮借閺嗭箓鏌ㄩ悤鍌涘

核心提示：依然是java 与模式里的例子,（java 与模式闫宏著) 以下是转为delphi的代码，这次加了注释:)unit BuilderPattern;interfacetype TPRoduct = class; //抽像建造者规范接口 TBuilder = class(TObject)public proce

依然是java 与模式里的例子,（java 与模式闫宏著) 以下是转为delphi的代码，这次加了注释:)

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.