IMyIntf = interface
  function GetValue: Variant;
end;

TMyObject=(TList, IMyIntf)
  ....
end;

Can not compile becuase it need to add this functions to TMyObject

         function QueryInterface(const iid : tguid;out obj) : longint;stdcall;
         function _AddRef : longint;stdcall;
         function _Release : longint;stdcall;

While i am not inherit IMyIntf from IUnknown or IInterface, Is there a
way to not add unnecessary functions (for me at least).

Sorry for my bad English, and Thanks in advance.

-- 
Zaher Dirkey
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to