工厂模式（FactoryMethod）

1. unit uFactoryMethod;
2. 
   
3. interface
4. 
   
5. uses Classes,Windows,Messages,Dialogs;
6. 
   
7. type
8.     TMobile = class
9.      public
10.        procedure Call();virtual;abstract;
11.     end;
12.     TNokia = class(TMobile)
13.      public
14.        constructor Create();
15.        procedure Call();override;
16.   end;
17.   TMotorola = class(TMobile)
18.      public
19.        constructor Create;
20.        procedure Call();override;
21.   end;
22.   TMobileFactory = class
23.      public
24.        function produceMobile():TMobile;virtual; abstract;
25.   end;
26.   TMotorolaFactory = class(TMobileFactory)
27.      public
28.        function produceMobile():TMobile;override;
29.   end;
30.   TNokiaFactory = class(TMobileFactory)
31.   private
32.      public
33.        function produceMobile():TMobile;override;
34.   end;
35. 
    
36. 
    
37. 
    
38. 
    
39. implementation
40. 
    
41. 
    
42. 
    
43. { TNokia }
44. 
    
45. procedure TNokia.Call;
46. begin
47.   inherited;
48.   ShowMessage('a call of Nokia');
49. end;
50. 
    
51. constructor TNokia.Create;
52. begin
53. 
    
54. end;
55. 
    
56. { TMotorola }
57. 
    
58. procedure TMotorola.Call;
59. begin
60.   inherited;
61.   ShowMessage('a call of motorola');
62. end;
63. 
    
64. constructor TMotorola.Create;
65. begin
66. 
    
67. end;
68. 
    
69. { TMotorolaFactory }
70. 
    
71. function TMotorolaFactory.produceMobile: TMobile;
72. var
73.   Motorola:TMotorola;
74. begin
75.   Motorola:=TMotorola.Create;
76.   Result:=Motorola;
77. 
    
78. end;
79. 
    
80. { TNokiaFactory }
81. function TNokiaFactory.produceMobile: TMobile;
82. var
83.   Nokia:TNokia;
84. begin
85.   Nokia:=TNokia.Create;
86.   Result:=Nokia;
87. end;
88. 
    
89. end.
90. //=============================================================================
91. //测试工厂模式
92. //============================================================================
    

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls;
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     Button2: TButton;
13.     procedure Button1Click(Sender: TObject);
14.     procedure Button2Click(Sender: TObject);
15.   private
16.     { Private declarations }
17.   public
18.     { Public declarations }
19.   end;
21. var
22.   Form1: TForm1;
24. implementation
25. uses uFactoryMethod;
26. {$R *.dfm}
28. procedure TForm1.Button1Click(Sender: TObject);
29. var
30.   mbf:TMobileFactory;
31.   mb:TMobile;
32. begin
33.   mbf:=TMotorolaFactory.Create;
34.   mb:=mbf.produceMobile;
35.   mb.Call;
36. end;
38. procedure TForm1.Button2Click(Sender: TObject);
39. var
40.   mbf:TMobileFactory;
41.   mb:TMobile;
42. begin
43.   mbf:=TNokiaFactory.Create;
44.   mb:=mbf.produceMobile;
45.   mb.Call;
46. end;
48. end.