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;

posted on 2007-12-10 13:21  万一  阅读(4050)  评论(1编辑  收藏  举报