1

它确实看起来像一个错误，但我只有试用版，所以它可能已经修复。

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，它将失败。所以有点不一致，但没那么糟糕！

4

1 回答 1

7

是的，一个错误。http://qc.codegear.com/是报告错误的地方。

于 2008-11-04T01:24:18.663 回答