建造者模式-Delphi述
来源:互联网 发布:sqlserver主键update 编辑:程序博客网 时间:2024/06/05 12:02
依然是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述
- 建造者模式-Delphi述
- Builder 建造者模式
- 建造者模式
- 设计模式-------建造者
- 建造者模式
- 建造者模式(Builder)
- 建造者模式(Builder)
- 建造者模式
- 建造者模式 - builder
- 建造者模式
- Builder建造者模式
- 建造者模式(Builder)
- 建造者模式(builder)
- 建造者模式
- java建造者模式
- 建造者模式
- 建造者模式
- “磁性”窗口新篇
- 单品最佳采购量和最佳库存量的计算方法
- 如何用Visual C#做组件
- 用Visual Basic创建复杂窗体
- Command模式
- 建造者模式-Delphi述
- 用数据岛生成翻页程序
- “黑屏”隐藏实现
- Oracle中Blob字段的写入处理(一)
- 用户QQ号码突遭查封 腾讯可能监测极度隐私
- 产生不重复随机数的简便算法
- PHP4之真OO
- PHP4中实现动态代理
- 其它技术和Hibernate-JSP2.0