关于在COM中使用可选参数的研究计算机等级考试
文章作者 100test 发表时间 2010:01:01 09:35:36
来源 100Test.Com百考试题网
关于在COM中使用可选参数的研究
在Delphi6中设计COM组件方法时,在 Parameter flags dialog 中,选择Optional选项,即输入参数为可选,现就给出如何实现可选参数实例。
监测函数
function VarIsEmptyParam(const V: Variant): Boolean.
begin
Result := (TVarData(V).VType = varError) and
(TVarData(V).VError = $80020004). {DISP_E_PARAMNOTFOUND}
end.
实例
uses ComServ, Variants, Dialogs, SysUtils.
procedure TOptionalParamsDemo.GetParams(const Param1: WideString. Param2,Param3: OleVariant. Param4: Integer).
var
s2, s3: WideString.
begin
if VarIsEmptyParam(Param2) then
s2 := \ empty \
else