建造者模式-Delphi述

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

依然是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.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航