2011-11-03

判斷 Variant 是不是你要的 Interface

function JsonSet(iSO:ISuperObject; const aName: String; const aVar:Variant): Boolean;
var
  intf: IInterface;
begin
  // .....

  if IInterface(aVar).QueryInterface(ISuperObject, intf) = 0 then
  begin
    iSO.O[aName] := ISuperObject(intf);
  end;

  // .....
end;

IInterface.QueryInterface

沒有留言: