它确实看起来像一个错误,但我只有试用版,所以它可能已经修复。
ITestInterface = interface
['{9445CED8-4DBA-4EDB-9897-60980B438BE4}']
procedure Foo1;
procedure Foo2;
end;
TTest = class(TInterfacedObject, ITestInterface)
end;
以上内容将无法编译。但以下是!
ITestInterface<t> = interface
['{9445CED8-4DBA-4EDB-9897-60980B438BE4}']
procedure Foo1;
procedure Foo2;
end;
TTest<T> = class(TInterfacedObject, ITestInterface<T>)
end;
编辑:我刚刚发现如果您尝试实例化 TTest,它将失败。所以有点不一致,但没那么糟糕!