它当然看起来像一个错误,但我只有试用版本,所以它可能已经修复。
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它会失败。所以有点不一致,但不是那么糟糕!