============建立动态开放式多维数组的问题？=============

Question

netlib(河外孤星) :
    你好！
    但只能这样做吗？好像读数据时的处理就会比较麻烦。

Answer 1

var
 a:array of array of integer;
 n: integer;
readln(m,n);
SetLength(a, m, n);

Answer 2

windindance(风舞轻扬) :
    你好！
    不过，上面的代码只是一个二维数组的声鸣，要是10以内的任意维什么办？

Answer 3

这样行否？
若确定最多有10维，那么就声明一个这样的记录数组
type
  arr = record
   a0 : integer;
   a1 : integer;
   ...
   a9 : integer;
end;
大不了多余的不用好了；
var
  x : array of arr;

Answer 4

这样行否？
若确定最多有10维，那么就声明一个这样的记录数组
type
  arr = record
   a0 : integer;
   a1 : integer;
   ...
   a9 : integer;
end;
大不了多余的不用好了；
var
  x : array of arr;

Answer 5

这样行否？
若确定最多有10维，那么就声明一个这样的记录数组
type
  arr = record
   a0 : integer;
   a1 : integer;
   ...
   a9 : integer;
end;
大不了多余的不用好了；

Answer 6

用可变类型吧：
var
 a : variant;
 n,i : integer;
begin
 n := 5;
 a := vararrayCreate([0,n-1],varVariant);
 for i := 0 to n -1 do begin
  a[n] := VarArrayCreate( [0,n-1],varWord);
 end;
  a[0][0] := ...;
  a[0][1] := ...;end;

Answer 7

hzb(Explorer) ：
   你好！
   我试一下看，如果a[4][0]:=2;能成功的话就应该行。

Answer 8

hzb(Explorer) ：
   你好！procedure TForm1.Button1Click(Sender: TObject);
var
 a : variant;
 n,i : integer;
begin
 n := 5;
 a := vararrayCreate([0,n-1],varVariant);
 for i := 0 to n -1 do begin
  a[n-1] := VarArrayCreate([0,n-1],varinteger);
 end;
  a[0,0] :=1;
  a[0,1] := 2;
  a[4,0]:=5;end;
错误提示：'variant array index out of bounds'.如何是好？

Answer 9

hzb(Explorer) ：
   你好！procedure TForm1.Button1Click(Sender: TObject);
var
 a : variant;
 n,i : integer;
begin
 n := 5;
 a := vararrayCreate([0,n-1],varVariant);
 for i := 0 to n -1 do begin
  a[n-1] := VarArrayCreate([0,n-1],varinteger);
 end;
  a[1,0] :=1;
  a[1,1] :=2;
  a[4,0]:=5;end;错误提示：“variant array index out of bounds”，如何是好？？