var Arr: array[0..3] of Variant; begin Arr[0] := 123; Arr[1] := 'wy'; Arr[2] := True; Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组 ShowMessage(Arr[0]); //123, 不需要转换 ShowMessage(Arr[1]); //wy ShowMessage(Arr[2]); //True ShowMessage(Arr[3][1]); //wanyi end;