如何用Delphi写一个参数数目可变的函数

[masterz]

就像int printf( const char *format [, argument]... );
可以使用任意数目的参数

[windindance]

不直接支持吧。
可以使用动态数组：
procedure func(a:array of Variant);

[chechy]

访问其中的内容就是靠
High(a), Low(a)

[nne998]

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;

[chechy]

补充一点，参数中array of Integer等等地东西不是动态数组。应该是Open Array Arguments。
动态数组是D4才提出的，而Open Array从D1开始就有了。最好的例子就是Format函数（类似于C地printf）。

[cszhz]

知道c中main函数的实现吗？

[highroad]

用超载吧，多写几个函数，名字一样，参数不一样就可以了。

[kevin_gao]

同意highroad(流冰)

[windfantasy]

对，用函数重载来实现！

[chechy]

如果用重载，那不是要写累死了。printf可不是重载实现的。

[masterz]

...

[masterz]

int wsprintf(
LPTSTR lpOut, // output buffer
LPCTSTR lpFmt, // format-control string
... // optional arguments
);
这个SDK函数参数个数可变的

[TechnoFantasy]

用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就是一个动态数组，在调用可以动态设定参数。