动态二维数组问题 (20分)

var MyCheck:array of array of string;
SetLength (MyCheck,q);//q是全局变量

//--------------读表给二维数组赋值--------------------
with ADOQuery2 do begin
SQL.Text :='select chck from answ where name='''+Edit1.text+''' and qst='''+ADOQuery1.FieldByName('ques').Value+'''';
Prepared;
Open;
while not EOF do begin
for I := 0 to q-1 do
begin
SetLength(MyCheck, n);//n是全局变量
for J := 0 to n-1 do
MyCheck[I,J] := FieldByName('chck').Value
end;
end;
end;
不能正常编译

SetLength (MyCheck,q)

是的，你说的对，改过了可还是有问题

>SetLength (MyCheck,q);
既然是二维的，应该是:
SetLength (MyCheck,q,j);

jbas,不要滥说。上面的分配也行。
二维数组就是数组之数组。可以那样分配的。
huayf,我的可以编译呀。