16,743
社区成员
发帖
与我相关
我的任务
分享 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;