Delphi-varArrayCreate矩阵列数组使用记录

创建矩阵:VarArrayCreate(const Bounds: array of Integer;AVarType: TVarType): Variant;

引用单元:Variants.pas

procedure TForm1.Button1Click(Sender: TObject);
var
  values : Variant;

begin
  // [0,n,0,1] n*2   的二维 矩阵列
  // [0,n,0,1,0] n*2 的三维 矩阵列
  // [0,n,0,1,0,1]  n*2 的四维矩阵列
  values := VarArrayCreate([0,2,0,1],varVariant);
  values[0,0] := 'hello world';
  values[0,1] := 'qson';

  values[1,0] := 'jack';
  values[1,1] := 'tom';

  values[2,0] := 'Lucy';
  values[2,0] := VarArrayOf(['CC','BB','DD','EE','FF']);

//  ShowMessage(values[1,0]);           {jack}

//  ShowMessage(values[2,0][0]);        {CC}

//  ShowMessageFmt('%d',[VarArrayLowBound(values,1)]);    {0}
//  VarArrayLowBound(const A: Variant; Dim: Integer)  Dim需要大于0,小于数组最大值 反之为无效索引  用去遍历矩阵列数组
//那一级的最低值   2 级最低值
  ShowMessage(values[VarArrayLowBound(values,2),1]);
//那一级的最高值   2 级最高值
  ShowMessage(values[VarArrayHighBound(values,2),1]);

end;