16,747
社区成员




ITest = interface
procedure Open; overload;
procedure Open(s:string); overload;
end;
TTest = class(TObject,ITest)
function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
procedure Open; overload;
procedure Open(s:string); overload;
end;