join牛牛 于 2010-05-28 16:36:00 发布装饰模式：动态地给一个对象添加一些额外的职责。就增加功能来说，Decorator模式相比生成子类更为灵活。[GOF 《设计模式》]
这句话怎么理解？
一般来说，增加功能，一般有增加类本身的功能；另外一种是增加子类；但是现实中，靠增加子类来满足实际需求，是远远不够的，缺少灵活性；
装饰模式，它强调的要增加功能，但又不允许生产过多子类，那么该怎么实现呢？ 它的指导思想，是进行包裹，层次包裹。子类对象包裹父类对象，一层一层，功能就一层一层。
1.首先定义一个首先抽象类或接口；
2.定了两个继承抽象类或实现接口方法的类，一个是装饰类，一个一般类，装饰类，定义一个方法，接受父类型；
{
装饰模式，强调的功能逐渐一层层包裹。 本例子， 以西游记中，孙悟空的72般变化，话说当年，
悟空不远千里，拜师学艺，功夫是一天天长进。腾云驾雾，翻筋斗，变美女/树等，这些功夫，是
一一学会的。
抽象虚拟类，作为父类。
所有代码 均在 Delphi7 测试通过
}
unit Decorator;
interface
uses ComObj;
type
{基础类}
TMonkey = class(TObject)
private
