创建矩阵:VarArrayCreate(const Bounds: array of Integer;AVarType: TVarType): Variant;
引用单元:Variants.pas
引用单元: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;