Delphi接口委托方法调用时机及本地方法调用疑问

一、接口委托的适用场景 #

• 职责分离与单一职责原则：当一个类需要实现多个接口，但部分接口的逻辑更适合由专门类处理时，委托能让主类聚焦核心职责，将其他接口的实现交给更专业的对象。比如你的TElves专注于IHumans接口逻辑，把IOrcs相关操作交给专门的Orc类实现，避免类职责臃肿。
• 复用已有实现：如果已有类完整实现了某个接口，无需在当前类中重复编写相同代码，直接委托给该已有对象，减少代码冗余。比如已有TOrc完美实现IOrcs，TElves直接复用其逻辑即可。
• 动态切换实现：可在运行时替换委托对象实例，动态改变接口行为。比如根据业务需求，把IOrcs的委托对象从TOrc切换到TAdvancedOrc，无需修改TElves代码。
• 规避多重继承限制：Delphi不支持类的多重继承，但允许实现多个接口。委托可模拟类似多重继承的效果，同时避免多重继承带来的复杂度，让类通过组合方式拥有多个接口的能力。

二、通过IInterface类型调用TElves本地的Enemies()方法 #

当使用implements关键字委托后，通过IOrcs接口访问会优先走委托对象。要调用本地实现，可通过以下几种方式：

1. 类内部直接调用
   在TElves类的其他方法中，直接调用本地的Enemies()，不受委托逻辑影响：

procedure TElves.TestLocalEnemies;
begin
  Enemies; // 直接调用本地实现
end;

2. 强制转换为类类型后调用
   如果外部持有IInterface类型的对象（比如IHumans或直接IInterface），可先强制转换为TElves类类型，再调用本地方法：

var
  Elves: IHumans;
begin
  Elves := TElves.Create;
  // 强制转换为类实例，调用本地Enemies
  TElves(Elves).Enemies;
end;

注意：需确保IInterface引用的对象确实是TElves实例，否则会触发类型转换错误。不确定时可先用is关键字判断：

if Elves is TElves then
  TElves(Elves).Enemies;

3. 额外暴露方法或内部接口
   若不想直接依赖类类型，可在TElves中额外定义方法或内部接口，专门用于调用本地Enemies实现：

type
  IElvesLocal = interface
    ['{YOUR-GUID-HERE}']
    procedure LocalEnemies;
  end;

  TElves = class(TInterfacedObject, IHumans, IOrcs, IElvesLocal)
  private
    fOrc: IOrcs;
    property Orc: IOrcs read fOrc implements IOrcs;
    procedure Enemies; // IOrcs的本地实现
  public
    procedure LocalEnemies;
  end;

procedure TElves.LocalEnemies;
begin
  Enemies; // 调用本地的Enemies
end;

外部使用时，通过Supports函数转换为IElvesLocal接口调用：

var
  Elves: IHumans;
  LocalElves: IElvesLocal;
begin
  Elves := TElves.Create;
  if Supports(Elves, IElvesLocal, LocalElves) then
    LocalElves.LocalEnemies;
end;

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