用Delphi实现四人帮（Gof）设计模式-８构建者模式 Builder收藏

Builder是为创建一个Product对象的各个部件指定的抽象接口.ConcreteBuilder是具体的建造者,实现Builder接口,构造和装配各个部件.Product就是产品.指挥者是构建一个使用Builder接口的对象.类图如下.

构建者模式主要是用于创建一些复杂的对象,这些对象内部构建间建造顺序通常是稳定的,但对象内部的构建通常面临复杂的变化.建造者模式的好处是使得建造代码与表示代码相分离,由于建造者隐藏了该产品是如何组装的,因此若需要改变一个产品的内部表示,只需要定义一个具体的建造者就可以了.

所以建造者模式是当创建复杂对象的算法独立于该对象的组成部分以及它们的装配方法时,适用的模式.

实现构建者

1. {************************************************** 
2. 
   
3.   实现Builder Pattern           
4. 
   
5.   UnitOwner:coco.zhang                            
6.   Last Modified:2008-10-4                    
7.  **************************************************}
8. unit BuilderUnit;
9. interface
10. 
    
11. type   
12.    MaxPartsNum = 1..100;
13.   TParts = array [MaxPartsNum]of string;
14.   { 声明产品类}
15.   TProduct = class(TObject)
16.      private 
17.          MIndex :  integer;
18.      MParts  : TParts;
19.      public 
20.           constructor Create;
21.           procedure AddPart( Part : string );
22.       procedure List;
23.   end;
24.    {声明抽象建造者}
25.    TBuilder = class(TObject)
26.     public
27.         procedure BuildPartA;virtual;abstract;
28.     procedure BuildPartB;virtual;abstract;
29.     function    GetResult():TProduct;virtual;abstract;
30.     end;
31.    {声明建造者}
32.    TConcreteBuilderA = class(TBuilder)
33.     private
34.        MProduct : TProduct;
35.     public
36.         constructor Create;
37.         procedure BuildPartA;override;
38.     procedure BuildPartB;override;
39.     function    GetResult():TProduct;override;
40.     end;
41.    {声明建造者}
42.    TConcreteBuilderB = class(TBuilder)
43.     private
44.        MProduct : TProduct;
45.     public
46.         constructor Create;
47.         procedure BuildPartA;override;
48.     procedure BuildPartB;override;
49.     function    GetResult():TProduct;override;
50.     end;
51. 
    
52. implementation
53. 
    
54. { 产品}
55. constructor TProduct.Create;
56. begin
57.   MIndex := 1;
58. end;
59. 
    
60. procedure TProduct.AddPart( Part : string );
61. begin
62.     MParts[MIndex] := Part;
63.     MIndex := MIndex + 1;
64. end;
65. 
    
66. procedure TProduct.List;
67. var I : Integer;
68. begin
69.     for I := 1 to MIndex-1 do
70.     begin
71.        Writeln(MParts[I]);
72.     end;
73. end;
74. {实现构建者A}
75. constructor TConcreteBuilderA.Create;
76. begin
77.    MProduct := TProduct.Create;
78. end;
79. procedure  TConcreteBuilderA.BuildPartA;
80. begin
81.    MProduct.AddPart('添加部件A');
82. end;
83. procedure TConcreteBuilderA.BuildPartB;
84. begin
85.    MProduct.AddPart('添加部件B');
86. end;
87. function  TConcreteBuilderA.GetResult():TProduct; 
88. begin
89.        Result := MProduct;
90. end;
91.  {实现构建者B}
92. constructor TConcreteBuilderB.Create;
93. begin
94.    MProduct := TProduct.Create;
95. end;
96. procedure  TConcreteBuilderB.BuildPartA;
97. begin
98.    MProduct.AddPart('添加部件X');
99. end;
100. procedure TConcreteBuilderB.BuildPartB;
101. begin
102.    MProduct.AddPart('添加部件Y');
103. end;
104. function  TConcreteBuilderB.GetResult():TProduct; 
105. begin
106.        Result := MProduct;
107. end;
108. end.

实现客户端

1. program Builder;
2. {$APPTYPE CONSOLE}
3. uses 
4.   BuilderUnit;
5.  var
6.    AVar : TBuilder;
7.  begin
8.    AVar := TConcreteBuilderA.Create;
9.    AVar.BuildPartA;
10.    AVar.BuildPartB;
11.    AVar.GetResult.List;
12.     
13.   AVar := TConcreteBuilderB.Create;
14.    AVar.BuildPartA;
15.    AVar.BuildPartB;
16.    AVar.GetResult.List;
17. 
    
18.  end.

结果

D:\Projects\Delphi7\src\GofProjects\Builder> Builder
添加部件A
添加部件B
添加部件X
添加部件Y