如何动态定义一个二维数组! ( 积分: 10 )

Z

zgh777

Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢指教!
 
Var
Arry:Array of array of Integer;

begin

SetLength(arry,10)//Delphi支持畸形数组,每行的列的个数可以不一样,这里先设置数组有10行
SetLength(Arry[0],10);//设置第一行有10列
SetLength(arry[1],5);//设置第二行有5列
for i:=2 to 9 do

begin

setLength(arry,9);//设置其它行为9列
end;

//赋值
Arry[0,0]:=1;

arry[1,4]:=3;
 
接受答案了.
 
顶部