WEB开发网
开发学院软件开发Delphi 建造者模式-Delphi述 阅读

建造者模式-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.

Tags:建造 模式 Delphi

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接