无法继承接口（interface）

Question

type
  i = interface
    ['{2CB4C3A8-B4A6-4741-B746-0803786C7904}']
    procedure fun;
  end;  c = class(TObject, i)
  public
    procedure fun;
  end;implementation  .....不知为何，编译器一直报错，说我的 QueryInterface 和 _AddRef、_Release 方法没有定义。请教给位，delphi 的接口怎么用？

Answer 1

改为
c = class(TInterfacedObject, i)
public
  procedure fun;
end;

Answer 2

xzgyb说的没错，TInterfacedObject是实现接口的基础类！
如果不想从这里继承那就自己实现QueryInterface、_AddRef、_Release 这三个方法