使用接口是否强制实现接口返回类型？

Question

使用接口时，实现类方法是强制返回接口，还是有办法返回对象？

举个例子来说明：

在单位 EmployeeIntf:

IEmployee = interface(IInterface)
  function CoWorker: IEmployee; // We dont know anything about TEmployee here
end;

单位员工：

uses EmployeeIntf;
...

TEmployee = class(TObject, IEmployee)
public
  function CoWorker: IEmployee; // Returns an error if set to TEmployee
end;

如果方法返回 TEmployee，则当前代码在编译器错误时停止：E2211 “CoWorker”声明与接口 IEmployee 中的声明不同（使用 Delphi 2010）

TEmployee.CoWorker 方法是强制返回一个接口，还是有办法返回一个 TEmployee，只要 TEmployee 是一个 IEmployee？

如果在这种情况下只允许接口，那么 OO 设计的原因是什么？

[编辑]

• 正如许多贡献者所问的，我不需要对 TEmployee 进行 ref 计数，并且希望将上述问题与任何 ref 计数考虑隔离开来。

• 这个问题的背景是需要在外部组件中（在单独的包中）使用 TEmployee 的一组非常有限的公共函数。由于uses部分中有太多不需要的依赖项，我不能简单地在包中导入'Employee'单元，所以我正在寻找一个松散耦合的解决方案。

谢谢，

Answer 1

您可以通过引入方法解析子句来使编译器满意：

type
  TEmployee = class(TInterfacedObject, IEmployee)
    function IEmployee.CoWorker = IEmployeeCoWorker;
  public
    function IEmployeeCoWorker: IEmployee;
    function CoWorker: TEmployee;
  end;

function TEmployee.IEmployeeCoWorker: IEmployee;
begin
  result := CoWorker;
end;

当然，这会使代码复杂化，但如果它确实是您所需要的......

Answer 2

实现类方法是否强制返回接口？

否，但实现必须与接口定义的签名相匹配。

有没有办法返回对象？

是的，如果您相应地声明接口。

type
  IEmployee = interface
    function CoWorker: TEmployee;
  end;

Answer 3

我假设您希望 CoWorker 函数返回 IEmployee，以使该接口的客户受益。

但是，实现代码有时有正当理由访问实现对象。当然，这样做确实会产生一种可能不受欢迎的耦合。

从 Delphi 2010 开始，您可以使用 as 运算符来访问实现对象。

var
  EmpIntf: IEmployee;
  EmpImp: TEmployee;
...
  EmpImp := EmpIntf as TEmployee;

请注意，您现在正在颠覆对象的生命周期管理。如果你在接口引用变为零之后访问EmpImp，那么你就有麻烦了。

最后，我要评论说，使用这种方法会产生不良设计的味道。通常最好找到一种方法，而不是我们 as 以这种方式。

Answer 4

Delphi 不支持covariant return types. 所以这与接口无关，只是语言本身的限制。

不过，通常这不是问题，因为客户通常应该使用IEmployee 并且不应该关心同事的具体类型。您必须提供更多详细信息（可能在新问题中）为什么需要特定类型。

如果你使用接口引用计数，你有更多的理由只使用接口类型引用，因为混合使用接口和对象引用会打乱引用计数。

Answer 5

如果要定义一个返回接口的接口函数，为什么要在实现中返回一个对象？

相信你只是不知道如何实现“函数CoWorker：IEmployee”。如果这是问题所在，这里有一个简单的解决方案：

TEmployee = class(TInterfacedObject, IEmployee)
public
  function CoWorker: IEmployee;
end;

function TEmployee.CoWorker: IEmployee;
begin
  Result := TEmployee.Create;
end;

顺便说一句，您应该从 TInterfacedObject 派生接口实现对象，而不是从 TObject。

[编辑]

至于你的澄清 - 你不能为 TEmployee 定义一个小的公共接口，然后从两个接口派生这个类吗？像这样：

type
  IEmployeePublic = ...
  IEmployee = ...

  TEmployee = class(TInterfacedObject, IEmployee, IEmployeePublic)
    function CoWorker: IEmployeePublic;
  end;