T
Tintin
Unregistered / Unconfirmed
GUEST, unregistred user!
IDispatch到底有什么特殊的东东在里面?
不是说接口里不能有数据吗?
那么下面的MyProperty是怎么实现的?
ITest = interface(IDispatch)
['{830A58E1-2B92-11D4-AB14-0080C8E9B7B3}']
procedure OnStartPage(const AScriptingContext: IUnknown);
safecall;
procedure OnEndPage;
safecall;
function Get_Tintin: Integer;
safecall;
procedure Set_Tintin(Value: Integer);
safecall;
property MyProperty: Integer read Get_MyProperty write Set_MyProperty;
不是说接口里不能有数据吗?
那么下面的MyProperty是怎么实现的?
ITest = interface(IDispatch)
['{830A58E1-2B92-11D4-AB14-0080C8E9B7B3}']
procedure OnStartPage(const AScriptingContext: IUnknown);
safecall;
procedure OnEndPage;
safecall;
function Get_Tintin: Integer;
safecall;
procedure Set_Tintin(Value: Integer);
safecall;
property MyProperty: Integer read Get_MyProperty write Set_MyProperty;