这是Delphi 2009中的错误吗？

它当然看起来像一个bug,但我只有试用版本,所以它可能已被修复.

ITestInterface = interface
  ['{9445CED8-4DBA-4EDB-9897-60980B438BE4}']
  procedure Foo1;
  procedure Foo2;
end;

TTest = class(TInterfacedObject, ITestInterface)

end;

以上将无法编译.但以下呢!

ITestInterface = interface
  ['{9445CED8-4DBA-4EDB-9897-60980B438BE4}']
  procedure Foo1;
  procedure Foo2;
end;

TTest = class(TInterfacedObject, ITestInterface)

end;

编辑:我刚刚发现它如果你尝试实例化TTest就会失败.所以有点不一致,但不是那么糟糕!

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