如何用Delphi写一个参数数目可变的函数-CSDN论坛

CSDN论坛 > Delphi > VCL组件开发及应用

如何用Delphi写一个参数数目可变的函数 [问题点数：300分，结帖人masterz]

⋅如何强制把库连接到程序里面 ⋅FPGA counter and FIFO ⋅请大家介绍一下公司被收购对员工的处置方式 更多帖子 关注空间博客 masterz 本版专家分：158 榜眼 2002年总版技术专家分年内排行榜第二 进士 2001年总版技术专家分年内排行榜第七 金牌 2002年1月总版技术专家分月排行榜第一 银牌 2002年4月总版技术专家分月排行榜第二 结帖率 98.72%: 就像int printf( const char *format [, argument]... );
可以使用任意数目的参数

0 2001-08-16 12:00:46

回复数 12 只看楼主引用举报楼主

⋅招聘项目经理、软件工程师 ⋅关于BS架构系统，防止SQL注入攻击的思路 ⋅好久没来了，发个笑话 更多帖子 关注空间博客 windindance 本版专家分：36067 蓝花 2002年3月 C++ Builder大版内专家分月排行榜第三 2002年3月 Delphi大版内专家分月排行榜第三: 不直接支持吧。
可以使用动态数组：
procedure func(a:array of Variant);

0 2001-08-16 12:12:28

只看TA 引用举报 #1 得分 25

⋅在Java中，向XSLT文档传入NodeSet类型的参数，该使用何种类型？ ⋅高分求解：如何使用联通的GPRS连接？ ⋅200分寻找：byte[]和sbyte[]相互转化的最优方法！ 更多帖子 关注空间博客 chechy 本版专家分：70753 进士 2002年总版技术专家分年内排行榜第九 2001年总版技术专家分年内排行榜第四 金牌 2001年9月总版技术专家分月排行榜第一 银牌 2002年3月总版技术专家分月排行榜第二 铜牌 2002年2月总版技术专家分月排行榜第三 2001年8月总版技术专家分月排行榜第三: 访问其中的内容就是靠
High(a), Low(a)

0 2001-08-16 12:14:19

只看TA 引用举报 #2 得分 25

⋅怎样在程序里设置，让当前页面忽略用户中断，继续执行呢？ ⋅我说，现在就是乱世~~ 对不？ ⋅我K，光天化日海边XXX 更多帖子 关注空间博客 nne998 本版专家分：5125: function yourfunc(szSs:TStrings):string;
var
    tmp:string;
    i:integer;
begin
    result:='';
    for i:=0 to szSs.count-1 do
        tmp:=tmp + szSs.strings[i];

    result:=tmp;
end;


0 2001-08-16 12:19:17

只看TA 引用举报 #3    得分 25

⋅在Java中，向XSLT文档传入NodeSet类型的参数，该使用何种类型？ ⋅高分求解：如何使用联通的GPRS连接？ ⋅200分寻找：byte[]和sbyte[]相互转化的最优方法！ 更多帖子 关注空间博客 chechy 本版专家分：70753 进士 2002年总版技术专家分年内排行榜第九 2001年总版技术专家分年内排行榜第四 金牌 2001年9月总版技术专家分月排行榜第一 银牌 2002年3月总版技术专家分月排行榜第二 铜牌 2002年2月总版技术专家分月排行榜第三 2001年8月总版技术专家分月排行榜第三: 补充一点，参数中array of Integer等等地东西不是动态数组。应该是Open Array Arguments。
动态数组是D4才提出的，而Open Array从D1开始就有了。最好的例子就是Format函数（类似于C地printf）。

0 2001-08-16 12:21:24

只看TA 引用举报 #4 得分 25

⋅CreateFile问题 ⋅ESMTP发送邮件问题！等待中…… ⋅有关ADO技术的讨论.数据库高手请进!欢迎讨论交流! 更多帖子 关注空间博客 cszhz 本版专家分：6272 黄花 2002年1月 Delphi大版内专家分月排行榜第二: 知道c中main函数的实现吗？

0 2001-08-16 12:23:26

只看TA 引用举报 #5 得分 25

highroad 本版专家分：204: 用超载吧，多写几个函数，名字一样，参数不一样就可以了。

0 2001-08-16 12:28:20

只看TA 引用举报 #6 得分 25

⋅问个简单问题！ ⋅关于Visual Studio 2005的安装。 ⋅论坛一下子好像快了很多啊。 更多帖子 关注空间博客 kevin_gao 本版专家分：5067: 同意highroad(流冰)

0 2001-08-16 12:33:55

只看TA 引用举报 #7 得分 25

windfantasy 本版专家分：269: 对，用函数重载来实现！

0 2001-08-17 02:54:52

只看TA 引用举报 #8 得分 25

⋅在Java中，向XSLT文档传入NodeSet类型的参数，该使用何种类型？ ⋅高分求解：如何使用联通的GPRS连接？ ⋅200分寻找：byte[]和sbyte[]相互转化的最优方法！ 更多帖子 关注空间博客 chechy 本版专家分：70753 进士 2002年总版技术专家分年内排行榜第九 2001年总版技术专家分年内排行榜第四 金牌 2001年9月总版技术专家分月排行榜第一 银牌 2002年3月总版技术专家分月排行榜第二 铜牌 2002年2月总版技术专家分月排行榜第三 2001年8月总版技术专家分月排行榜第三: 如果用重载，那不是要写累死了。printf可不是重载实现的。

0 2001-08-17 08:33:37

只看TA 引用举报 #9 得分 25

masterz 本版专家分：158 榜眼 2002年总版技术专家分年内排行榜第二 进士 2001年总版技术专家分年内排行榜第七 金牌 2002年1月总版技术专家分月排行榜第一 银牌 2002年4月总版技术专家分月排行榜第二: ...

0 2001-11-10 18:02:38

只看TA 引用举报 #10 得分 25

⋅如何强制把库连接到程序里面 ⋅FPGA counter and FIFO ⋅请大家介绍一下公司被收购对员工的处置方式 更多帖子 关注空间博客 masterz 本版专家分：158 榜眼 2002年总版技术专家分年内排行榜第二 进士 2001年总版技术专家分年内排行榜第七 金牌 2002年1月总版技术专家分月排行榜第一 银牌 2002年4月总版技术专家分月排行榜第二: int wsprintf(
  LPTSTR lpOut,    // output buffer
  LPCTSTR lpFmt,   // format-control string
  ...              // optional arguments
);
这个SDK函数参数个数可变的

0 2001-11-10 18:33:56

只看TA 引用举报 #11    得分 25

⋅问一个游戏算法的问题

⋅求一个基于Web的网页编辑的实现代码

⋅湖南微软开发者俱乐部成立大会召集贴

更多帖子

关注空间博客

TechnoFantasy

本版专家分：25076

进士 2001年总版技术专家分年内排行榜第五

微软MVP 2005年9月荣获微软MVP称号
2008年10月荣获微软MVP称号
2007年10月荣获微软MVP称号
2006年10月荣获微软MVP称号
2004年9月荣获微软MVP称号
2003年9月荣获微软MVP称号
2002年9月荣获微软MVP称号

红花 2005年7月 VB大版内专家分月排行榜第一
2005年6月 VB大版内专家分月排行榜第一
2001年5月 VB大版内专家分月排行榜第一
2001年4月 VB大版内专家分月排行榜第一
2001年3月 VB大版内专家分月排行榜第一

黄花 2005年9月 VB大版内专家分月排行榜第二
2001年2月 VB大版内专家分月排行榜第二: 用array可以实现int printf( const char *format [, argument]... );这样功能的,例如：

procedure a1(a: integer; b: array of integer);
var
  i:integer;
begin
  showmessage('procedure begin');
  for i:=low(b) to high(b) do
    showmessage(inttostr(b[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a1(2,[3,4,5]);
  a1(2,[]);
end;

子程序a1的参数b就是一个动态数组，在调用可以动态设定参数。

0 2001-11-10 19:33:43

只看TA 引用举报 #12    得分 25

收藏帖子