16,748
社区成员
发帖
与我相关
我的任务
分享
ITest = interface
function ReadValid: Boolean;
procedure WriteValid(Value: Boolean);
property Valid: Boolean read ReadValid write WriteValid;
end;
type
ITest=interface
['{F4182F52-FBBC-4A65-8E8D-6F44951A9926}']
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
property Valid: Boolean read FValid write SetValid;
end;