高手指教：如何设计这样的函数？

Question

我想设计一个参数个数可变的函数？

Answer 1

procedure Foo(args:array of const);写了个这样的函数之后，你可以这样调用：foo([1,2]);
foo([1,2,3]);
foo([1,2,'av','df']);

Answer 2

V: Variant;
 V := VarArrayCreate([0,1], varVariant);
 V[0] := VarArrayOf(['Param',1]);
 V[1] := VarArrayOf(['Para',2]);

Answer 3

Function FunName(Array of Variant) :...

Answer 4

procedure proname(list:Stringlist);利用数组也一样，不过用stringlist更简单，因为它是类，用很多属性。

Answer 5

使用TList嘛。
procedure ProName(Parms: TList);

Answer 6

如果最多有十个，就定义十个。不需要的可以传个NIL。