Delphi 设计模式：《HeadFirst设计模式》Delphi代码---模式小结之一个叫声接口和几只鸭子[转]

一、一个叫声接口和几只鸭子

1. 从一个叫声接口开始。
2.  {《HeadFirst设计模式》Delphi代码之模式小结 }
3.  { 一个叫声接口                            }
4.  { 编译工具：Delphi2010 for win32          }
5.  { E-Mail ：guzh-0417@163.com             }
6.  
7.  unit uQuackable;
8.  
9.  interface
11. type
12.    IQuackable = interface(IInterface)
13.    procedure Quack;
14. end;
15. implementation
17. end.

 

2、几只鸭子实现了该叫声接口。

 

end.

 

3、叫声接口为鸭鸣器提供服务。叫声接口与鸭鸣器的关系比与它的实现类更密切。

 

end.

 

4、客户端。

 

end.

 

5、运行结果：

 

 

 

一、一个叫声接口和几只鸭子

1. 从一个叫声接口开始。
2.  {《HeadFirst设计模式》Delphi代码之模式小结 }
3.  { 一个叫声接口                            }
4.  { 编译工具：Delphi2010 for win32          }
5.  { E-Mail ：guzh-0417@163.com             }
6.  
7.  unit uQuackable;
8.  
9.  interface
11. type
12.    IQuackable = interface(IInterface)
13.    procedure Quack;
14. end;
15. implementation
17. end.

 

2、几只鸭子实现了该叫声接口。

 

end.

 

3、叫声接口为鸭鸣器提供服务。叫声接口与鸭鸣器的关系比与它的实现类更密切。

 

end.

 

4、客户端。

 

end.

 

5、运行结果：