function TSampleWrapper.SomeAction(const Data: string): Boolean;

begin

  Result := Sample.SomeAction(Data);

end;

说明一下类TsampleWrapper：

·      被包装的成员的特性，在包装类中都有着同样的类型，如名称、数据类型，可见性、及其它个别特性。

·      被包装成员的属性也被包装成属性，并且可能通过read、write方法访问。

·      被包装的成员也接供了属性访问接口，也可能通过read、write方法访问。

·      事件与被包装起来，通过read、write方法访问方法，胜于直接访问事件句柄。

·      方法也被包装起来了，并复接被包装类的方法的参数集、现样返回值也是被包装类的返回值。

Delphi实例

 正在组织。

上一页  [1] [2]