接口和对象间怎么互转？

Question

hash := THashedStringList.create;
hash.addobject('11',Tobject(Iapp));Iapp是Com的一个接口
app := Iapp(hash.objects[0]);这句出错是Incompatible types怎么转

Answer 1

Type
  TStoreInterfaceOject = class
  public
    InterfaceObj: IInterface;
  end;var
  storedInterfaceObj: TStoreInterfaceOject;
begin
  storedInterfaceObj := TStoreInterfaceOject.Create;
  storedInterfaceObj.InterfaceObj := app as IInterface;  hash := THashedStringList.create; 
  hash.addobject('11',storedInterfaceObj);
  app := TStoreInterfaceOject(hash.objects[0]).InterfaceObj as IApp;
end;