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