type TSample = class (TObject) private FSomeValue: Integer; public function SomeAction(const Data: string): Boolean; property SomeValue: Integer read FSomeValue write FSomeValue; end; TSampleWrapper = class(TComponent) private FSample: TSample; public property Sample: TSample read FSample; end; 然后我们就可以在TSample类中实现TSample的接口了，代码如下：
TSampleWrapper = class (TComponent) private FSample: TSample; protected function GetSomeValue: Integer; procedure SetSomeValue(Value: Integer); public function SomeAction(const Data: string): Boolean; property Sample: TSample read FSample; property SomeValue: Integer read GetSomeValue write SetSomeValue; 接口实现代码如下：
function TSampleWrapper.GetSomeValue: Integer; begin Result := Sample.SomeValue; end; procedure TSampleWrapper.SetSomeValue(Value: Integer); begin Sample.SomeValue := Value; end; function TSampleWrapper.SomeAction(const Data: string): Boolean; begin Result := Sample.SomeAction(Data); end;
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
