设计模式、用Delphi实现---->Decorator 模式[8]

  end;

代码说明:

·      属性textstream包含了对装饰的文本流对象的引用。textstream具有读、写的操作。这样对后代来说就更灵活了。一个类似的模式的proxy模式，通过读、写方法在proxy模式也是一种好的应用。有关proxy模式请参考《设计模式》。

·      属性ownsstream用来textstream的所有权。在下面的实现代码中你可以看到ttextfilter类在free它所有的文本流时先判断ownsstream是否为真。它取到帮助装饰清除的作用。