Delphi中如何继承外部接口无需重写方法且免类型转换调用

报错原因说明 #

Delphi的implements委托机制仅支持类显式声明实现的独立接口的方法路由，无法自动关联聚合继承接口的父接口方法。你定义的ITogether继承自IOne后，编译器会要求你显式实现所有ITogether包含的方法（包括继承自IOne的方法），但implements IOne的声明仅能匹配类显式声明实现的IOne接口，无法匹配ITogether中继承来的IOne方法，因此会抛出E2291 缺少接口方法实现错误。

通用实现方案（兼容所有Delphi版本） #

该方案是目前全版本兼容的实现方式，核心逻辑是手动中转所有需要对外暴露的方法到对应委托接口实例，无需调用侧做类型转换：

type
  // 第三方提供的原始接口定义
  IOne = interface
    ['{YOUR-I1-GUID}']
    procedure Something;
  end;

  ITwo = interface
    ['{YOUR-I2-GUID}']
    procedure SomethingElse;
  end;

  // 自定义聚合接口，包含所有需要对外暴露的方法
  ITogether = interface
    ['{YOUR-IT-GUID}']
    // 聚合IOne、ITwo的所有方法，可额外新增自定义方法
    procedure Something;
    procedure SomethingElse;
    procedure CustomExtendFunc;
  end;

  TImplement = class(TInterfacedObject, ITogether)
  private
    FOneImpl: IOne; // 第三方提供的IOne实现实例
    FTwoImpl: ITwo; // 第三方提供的ITwo实现实例
  public
    constructor Create;
    // 显式实现所有聚合接口方法，内部转发到对应实例
    procedure Something;
    procedure SomethingElse;
    procedure CustomExtendFunc;
  end;

constructor TImplement.Create;
begin
  inherited;
  // 初始化第三方接口实例，这里替换为实际的第三方实现创建逻辑
  FOneImpl := TThirdPartyOneImpl.Create;
  FTwoImpl := TThirdPartyTwoImpl.Create;
end;

procedure TImplement.Something;
begin
  // 直接转发给第三方IOne实例的对应方法
  FOneImpl.Something;
end;

procedure TImplement.SomethingElse;
begin
  // 直接转发给第三方ITwo实例的对应方法
  FTwoImpl.SomethingElse;
end;

procedure TImplement.CustomExtendFunc;
begin
  // 你的自定义增强逻辑
end;

调用示例 #

完全符合你期望的免类型转换调用方式：

var
  MyInterface: ITogether;
begin
  MyInterface := TImplement.Create;
  MyInterface.Something;
  MyInterface.SomethingElse;
  MyInterface.CustomExtendFunc;
end;

补充说明 #

如果你的项目使用Delphi 10.4及以上版本，也可以通过接口多重继承+自动代码生成插件的方式减少手动写转发方法的工作量，但核心逻辑和上述方案一致，没有本质区别。

内容的提问来源于stack exchange，提问作者Quelltextknecht