当前位置：编程学习 > Delphi >>

关于在COM中使用可选参数的研究

关于在COM中使用可选参数的研究


作者：wangzhidong(Steven Bob)


创作日期：2002-3-27


在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


    S2 :=  not empty ;


  if VarIsEmptyParam(Param3) then


    s3 :=  empty 


  else


    S3 :=  not empty ;


  ShowMessage(Format(Param1[%s] Param2[%s] Param3[%s] Param4[%d],[Param1, s2, s3, Param4]));


end;


 







procedure TForm1.Button1Click(Sender: TObject);


补充：软件开发 , Delphi ,
上一个：msagent经典用法
下一个：Delphi编程实现程序快捷方式[原创]
更多图片编程知识:

  
更多Delphi疑问解答：
用delphi做这个功能怎么做？
问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？
有谁知道怎样在Delphi 7中显示代码的行数啊？或者有什么方法能够快速找到已知某一行数的代码啊！
关于delphi 操作EXcel的问题
delphi ，sql，， 数据库 ，求助~~~~ 急~~~~~
delphi变体记录问题
delphi能实现反射吗？
谁会安装delphi 7 控件啊！会的话，请帮我在线安装一下? QQ785799795
在Delphi的Image控件上画移动的图片
delphi 月份递增的循环查询
宝兰公司的开发工具delphi和c++builder现在的年代还流行吗？
我是沈阳做delphi开发的，想要集成短信功能到客户管理系统中，麻烦各位达人？
我是南昌做delphi开发的，想要集成短信功能到PMS中，分享下吧！
delphi 取消窗体的最小化怎么弄
我是深圳做delphi开发的，想要集成短信功能到知识管理系统中，求达人指点！







  





CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络，