Delphi接口[重复]

Question

晚上好，

我正在尝试使用 dUnit 和 PascalMock 对我的一些 Delphi 代码进行单元测试。

有大量的遗留代码根本没有接口，它们还包含传入自身对象的参数，例如：

TSelf = Class
  Function Hello(self: TSelf);
end;

然后我尝试将接口应用于 TSelf：

ISelf = Interface(IInterface)
  Function Hello(self: TSelf)
end;

TSelf = Class(TInterfacedObject, ISelf)
  Function Hello(self: TSelf);
end;

这显然是失败的，因为“TSelf”是未定义的，这些是具有许多使用 TSelf 作为参数的函数的大型对象，我唯一的选择是将这些更改为 TObject 吗？并在方法中将它们强制转换为 TSelf？

我们将不胜感激任何帮助，因为它目前阻止我进行自动测试。

或者是否有不需要接口的模拟框架？

谢谢。

Answer 1

你可以使用前向类声明

type
  TSelf = class;

  ISelf = Interface
    procedure Hello(ASelf: TSelf);
  end;

  TSelf = Class(TInterfacedObject, ISelf)
    procedure Hello(ASelf: TSelf);
  end;

但在这种情况下，必须在同一类型声明部分中定义完整的 TSelf 类声明。

作为旁注，使用self 作为参数名称会造成混淆，并且无法编译代码以及没有结果类型的函数。