我可以创建一个从类和Delphi中的接口继承的类吗？

Question

我有一个类TDevice。一些设备将具有蜂窝模块。所以我创建了一个Interface IIMEI。其他设备将具有以太网模块。所以我创建了一个Interface IMacAddress。

所以，我想创建另一个类是TDevice的孩子，并实现IIMEI或IMacAddress或两者。

在Delphi中可能吗？

Answer 1

最简单的选择是从TInterfaced对象派生TDevice，并用其他方法扩展你的后代。但请注意接口引用计数，否则最终会出现大量意外的访问冲突。

或者，您可以编写一个从TInterfacedObject下载的包装对象，并将接口的实现委托给TDevice后代。在这种情况下，引用计数不会成为问题。

TMacAddressWrapper = class(TInterfacedObject, IMacAddress) 
private 
    FDevice: TDevice; 
    property Device: TDevice read FDevice implements IMacAddress; 
public 
    constructor Create(_Device: TDevice); 
end; 

constructor TMacAddressWrapper.Create(_Device: TDevice); 
begin 
    inherited Create; 
    FDevice := _Device; 
end;