クラスから継承したクラスとDelphiのインターフェイスから継承するクラスを作成できますか？

Question

私はクラスTDeviceを持っています。一部のデバイスにはセルラーモジュールが搭載されています。だから私はインターフェイスIIMEIを作成します。他のデバイスにはイーサネットモジュールがあります。そこで私はインターフェイスIMacAddressを作成します。

したがって、私はTDeviceの子であり、IIMEIまたはIMacAddress、またはその両方を実装する別のクラスを作成したいと考えています。

デルファイでは可能ですか？

Answer 1

最も簡単なオプションは、TInterfaced Objectから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;