Blue
Red
Green
Orange
Voilet
Slate
Dark

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

Z

zgh777

Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢指教!
 
D

Dong_HC

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;
 
Z

zgh777

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
顶部 底部