一.一个叫声接口和几只鸭子 从一个叫声接口开始. {<HeadFirst设计模式>Delphi代码之模式小结 } { 一个叫声接口                            } { 编译工具:Delphi2010 for win32          } { E-Mail :guzh-0417@163.com             } unit uQuackable; interface type IQuackable = interface(IInterface) proced…

简单工厂:工厂依据传进的参数创建相应的产品. http://www.cnblogs.com/DelphiDesignPatterns/archive/2009/07/24/1530536.html {<HeadFirst设计模式>工厂模式之简单工厂 } 3{ 产品类 } 4{ 编译工具 :Delphi7.0 } 5{ 联系方式 :guzh-0417@163.com } 6 7unit uProducts; 8interface 10 11type 12 TPizza = class(TObje…

 1  2 {<HeadFirst设计模式>工厂模式之抽象工厂 }  3 { 抽象工厂的产品                       }  4 { 编译工具:Delphi7.0                  }  5 { E-Mail :guzh-0417@163.com          }  6  7unit uPizzaIngredient;  8  9interface 10 11type 12  TDough = class(TObject) 13  end; 14 15  …

 1  2{<HeadFirst设计模式>之组合模式 }  3{ 组合与单项的抽象父类           }  4{ 编译工具:Delphi2007 for win32}  5{ E-Mail :guzh-0417@163.com   }  6  7unit uMenuComponent;  8  9interface 10 11uses 12  SysUtils; 13 14type 15  TMenuComponent = class abstract(TObject) 16  publ…

  1   2{<HeadFirst设计模式>工厂模式之工厂方法 }   3{ 产品类                              }   4{ 编译工具 :Delphi2007 for win32      }   5{ 联系方式 :guzh-0417@163.com         }   6   7unit uProducts;   8   9interface  10  11type  12  { abstract Pizza }  13  14  TPizza = cl…

模板方法模式定义了一个算法骨架,允许子类对算法的某个或某些步骤进行重写(override).   1   2{<HeadFirst设计模式>之模板方法模式 }   3{ 编译工具: Delphi7.0              }   4{ E-Mail : guzh-0417@163.com      }   5   6unit uCoffeineBeverageWithHook;   7   8interface   9  10uses  11  SysUtils;  12  13type…

容器的主要职责有两个:存放元素和浏览元素.根据单一职责原则(SRP)要将二者分开,于是将浏览功能打包封装就有了迭代器. 用迭代器封装对动态数组的遍历:  1  2{<HeadFirst设计模式>之迭代器模式 }  3{ 容器中的元素类                  }  4{ 编译工具:Delphi7.0             }  5{ E-Mail :guzh-0417@163.com     }  6  7unit uItem;  8  9interface 10 11type 1…

 1  2{<HeadFirst设计模式>之策略模式 }  3{ 本单元中的类为策略类           }  4{ 编译工具: Delphi7.0           }  5{ E-Mail : guzh-0417@163.com   }  6  7unit uStrategy;  8  9interface 10 11type 12  {飞行接口,及其实现类 } 13 14  IFlyBehavior = Interface(IInterface) 15    procedure Fl…

  1   2{<HeadFirst设计模式>之命令模式 }   3{ 本单元中的类为命令的接收者      }   4{ 编译工具 :Delphi7.0         }   5{ 联系方式 :guzh-0417@163.com }   6   7unit uReceiveObject;   8   9interface  10  11type  12  TLight = class(TObject)  13  private  14    FLocation: String;  15  …

 1  2{<HeadFirst设计模式>之单例模式 }  3{ 编译工具: Delphi2007 for win32 }  4{ E-Mail : guzh-0417@163.com  }  5  6unit uChocolateBoiler;  7  8interface  9 10type 11  TChocolateBoiler = class(TObject) 12  strict private 13    class var 14      FUniqueInstance: TC…