动态多维数组在 Delphi 中的应用 2

用别名管理数组会给后期编写和调用带来很大的方便，尤其在以数组为参数的函数中更体现了优势。

type

　　TArr = array[0..255] of Byte;

　　TArr2= array of TArr;

var

　　i, j, iCount : integer;  //iCount 数组第一维元素个数

　　a : TArr2;

begin

　　iCount := 8;

　　SetLength(a, iCount);

　　for i:= 0 to iCount - 1 do

　　　　for j:= 0 to 255 do 

　　　　　　a[i, j]:= i + j;

end;