使用可变参数函数具有灵活性、重用性、简化调用等优点，各个语言有各自定义可变参数函数的方法，也有通用的处理方法，比如使用数组、定义参数结构体、使用泛型等。
这里总结记录一下 go、delphi 的常用的定义可变参数函数的方式！
一、Go 定义可变参数函数
- 定义方式：在类型前面加上省略号（
...），如果将可变参数定义为...interface{}类型，则可传递任意类型的值给函数 - 代码示例：
package main import ( "fmt"
) // 定义一个带有可变参数sum的函数
func sum(numbers ...int) int { total := 0 for _, num := range numbers { total += num } return total
} func main() { // 调用sum函数并传入可变数量的参数 fmt.Println(sum(1, 2, 3)) // 输出: 6 // 也可以通过一个切片来传递参数 numbers := []int{5, 6} fmt.Println(sum(numbers...)) // 输出: 11
}可变参数定义为 ...interface{} 类型：
package main import ( "fmt"
) func printValues(values ...interface{}) { for _, value := range values { switch v := value.(type) { case int: fmt.Println(v, "is an int") case string: fmt.Println(v, "is a string") default: fmt.Println(v, "is of a different type") } }
} func main() { printValues(1, "two", 3.0)
}- 注意事项：
①可变参数必须是函数参数列表中的最后一个参数
②调用函数传入切片时，需要在切片后加（...）,否则只会将切片本身作为一个单独的参数传递给函数，而不是切片中的元素
③用 ...interface{}作为参数类型时，需使用类型断言来处理不同的类型
二、Delphi 定义可变参数函数
- 定义方式：使用数组（array of const），结合 TVarRec 结构体判断参数类型
- 代码示例：
type//定义一个简单的类，用来作为测试可变参数函数的其中一个参数TPerson = classprivatename: string;end;//定义该函数的参数为可变参数
procedure PrintMultipleParams(args: array of const);//可变参数函数的实现部分
procedure PrintMultipleParams(args: array of const);
vari: integer;sInfo: string;
beginsInfo := '';for i := Low(args) to High(args) dobegin// 通过 TVarRec().VType 判断参数的类型, TVarRec(args[i]).VInteger 取值case TVarRec(args[i]).VType ofvtInteger:sInfo := sInfo + '整形值： ' + IntToStr(TVarRec(args[i]).VInteger) + #13#10;vtUnicodeString:sInfo := sInfo + '字符串： ' + string(TVarRec(args[i]).VString) + #13#10;vtObject: // 这里假定确定类为 TPerson ，获取 person.namesInfo := sInfo + '类名： ' + TVarRec(args[i]).VObject.ClassName + ' -- '+ TPerson(TVarRec(args[i]).VObject).name+ #13#10;elsesInfo := sInfo + ' -- 不支持的类型';end;end;ShowMessage(sInfo);
end;//调用可变参数函数
procedure TForm1.btn1Click(Sender: TObject);
varperson: TPerson;
begin// 传递 3 个参数PrintMultipleParams([1, '测试可变参数', 3]);// 传递 4 个参数PrintMultipleParams([1, '测试可变参数', 3, '中国']);// 传递 2 个参数person := TPerson.Create;tryperson.name := '可变参数是 TObject';PrintMultipleParams([1, person]);finallyFreeAndNil(person);end;
end测试结果：
- 注意事项：
TVarRec 是 Delphi 中用于表示一个记录的类型，该记录有一个可以保存多种值的变体部分。这些值可以包括整数、布尔、字符、实数、字符串、指针、类、类引用、接口、变体等。
VType 字段用于表示记录值的类型，对应的值分别用 VInteger、VString、VObject等获取。
delphi 中 TVarRec 的定义如下：
TVarRec = record { do not pack this record; it is compiler-generated }case Integer of0: (case Byte ofvtInteger: (VInteger: Integer);vtBoolean: (VBoolean: Boolean);
{$IFNDEF NEXTGEN}vtChar: (VChar: _AnsiChr);
{$ENDIF !NEXTGEN}vtExtended: (VExtended: PExtended);
{$IFNDEF NEXTGEN}vtString: (VString: _PShortStr);
{$ENDIF !NEXTGEN}vtPointer: (VPointer: Pointer);
{$IFNDEF NEXTGEN}vtPChar: (VPChar: _PAnsiChr);
{$ENDIF !NEXTGEN}
{$IFDEF AUTOREFCOUNT}vtObject: (VObject: Pointer);
{$ELSE}vtObject: (VObject: TObject);
{$ENDIF}vtClass: (VClass: TClass);vtWideChar: (VWideChar: WideChar);vtPWideChar: (VPWideChar: PWideChar);
{$IFNDEF NEXTGEN}vtAnsiString: (VAnsiString: Pointer);
{$ENDIF !NEXTGEN}vtCurrency: (VCurrency: PCurrency);vtVariant: (VVariant: PVariant);vtInterface: (VInterface: Pointer);vtWideString: (VWideString: Pointer);vtInt64: (VInt64: PInt64);vtUnicodeString: (VUnicodeString: Pointer););1: (_Reserved1: NativeInt;VType: Byte;);end;
