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;