设计模式、用Delphi实现---->Wrapperpattern

Wrapper pattern

起源

Delphi中的Wrapper模式是在 ‘Adapter’ or ‘Wrapper’ 的基础上上改造的。更多的介绍请查阅[Gam+, pages 139..150]。

目的

‘将一个接口转换成客户期待的别外一个接口。Wrappers 模式使得原本由于接口不兼容而不能一起工作类可以一起工作，参阅 [Gam+ 139].

动机

在Delphi的Object Pascal语言中类对多态性的支持远比接口对多态的支持高。同样意味着两个类虽然可以同时支持一个接口，但它们必须有相同的组先类，从而客户对象可以对类执行动态变换。但有时我们想使一些原本无关的类在一起工作，此时wrapper模式让你将一类包装成另一个类的接口。它类同于多重继承，但在Delphi是一种引用关系。

开始讲述下面的例了，好：

假设您有一个继承自Tobject并想安装到控件板的类：Tsample，但此时必须让组件支持Tcomponent。高兴的是有一种好的办法不用改变Tsample的继承关系就可以将转换成支持

Tcomponent（比如此时你没有类的源码，只有它的BPL包），创建一个继承于Tcomponent的新类TsampleWrapper，并将引用聚合类Tsample。此后类TsampleWrapper将是Tcomponent后代，你可以将它加入控件板了。你现在将Tsample