电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> delphi技术>>建造者模式-Delphi述:

建造者模式-Delphi述

来源:www.cncfan.com | 2006-1-10 | (有1633人读过)

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

delphi技术热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号