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;