摘要：
适配器模式的主要意图是对现有类的接口进行转换，以满足目标类的需求。其次，可以给目标类的接口添加新的行为（主要指方法）。这一点容易与装饰模式混淆。从意图方面来看，装饰模式不改变（通常指增加）接口中的行为（主要指方法），而是在原有行为（主要指方法）的基础上添加新的功能；从类结构方面来看，装饰模式中的... 阅读全文
摘要：
12{《HeadFirst设计模式》之策略模式}3{本单元中的类为策略类}4{编译工具:Delphi7.0}5{E-Mail:guzh-0417@163.com}67unituStrategy;89interface1011type12{飞行接口，及其实现类}1314IFlyBehavior=Int... 阅读全文
摘要：
12{《HeadFirst设计模式》之装饰模式}3{本单元中的类为被装饰者}4{编译工具:Delphi7.0}5{E-Mail:guzh-0417@163.com}67unituComponent;89interface1011type12TBeverage=class(TObject)//抽象饮料... 阅读全文
摘要：
1unituSubObject;23interface45type67{TAmplifier与TTuner，TCDPlayer，TDVDPlayer相互依赖。}8{在TTuner等的简单实现时用不到对TAmplifier的引用，}9{但现实生活中就应该让TAmplifier提供服务，所以这里保留了。... 阅读全文
摘要：
12{《HeadFirst设计模式》之命令模式}3{本单元中的类为命令的接收者}4{编译工具：Delphi7.0}5{联系方式：guzh-0417@163.com}67unituReceiveObject;89interface1011type12TLight=class(TObject)13pri... 阅读全文
摘要：
命令模式可以很轻松的实现撤销（Undo）功能。命令的接受者：1unituReceiveObject;23interface45type6TLight=class(TObject)7public8procedureOpen;9procedureOff;10end;1112implementation1... 阅读全文
摘要：
//命令的接受者unit uReceiveObject;interfacetype TLight = class(TObject) public procedure Open; procedure Off; end; TGarageDoor = class(TObject) public proce... 阅读全文
摘要：
{没有应用状态模式的代码}//工程文件program Project1;{$APPTYPE CONSOLE}uses uGumballMachine in 'uGumballMachine.pas';var aGumballMachine: TGumballMachine;begin aGumbal... 阅读全文