关于接口的类型检测问题，在线等

Question

如下
type
  IMyIntf = interface
   ['{}']
   procedure DoSomething;
  end;
  TMyObj = class(TInterfacedObject, IMyIntf)
   procedure DoSomething;
  end;
  procedure TMyObj.DoSomething;
  begin
  end;  function CheckType(intf : IMyIntf):boolean;
  begin
    //这里如何检测intf是否是TMyObject或其子类的对象？
  end;

Answer 1

这样不行，没办法查询的。还要增加一个返回实现实例的接口。看看delphi7中的TComponent是怎么做的吧.