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 - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
