对不起我看错了
procedure TForm1.Button4Click(Sender: TObject);
type
IA=array of Integer;//定义一个整型数组
IAA=array of IA;//定义一个ia类型的数组（ia是个整型数组）
//那么iaa是一个2维整型数组
var
MyA:array of IAA;//是一个3维整型数组
i,j,k:Integer;
begin
SetLength(MyA,2);//定义了mya的一维长度2
for i:=0 to 1 do//因为动态数组的维数从0开始,所以i:=0 to 1；
begin
SetLength(MyA,3);//定义了2维中每一个的长度维数是3；
for j:=0 to 2 do
begin
SetLength(MyA[j],4);//定义了3维中每一个的长度维数是4；
//到这里为止Mya就是这样的情况： mya ：array[0..1,0..2,0..4] of integer;
for k:=0 to 3 do//这下面的是符值
MyA[i,j,k]:=k+j*4+i*3;
end;
end;
