动态数组指针应用

Type  TMyArr = array of array of array of Integer;  Pint = ^TMyArr;var  PArr: Pint;  i, j, k, ic, jc, kc: Integer;begin  ic := 2;  jc := 3;  kc := 4;  New(PArr);  SetLength(PArr^, ic, jc, kc);  for i := 0 to ic - 1 do    for j := 0 to jc - 1 do      for k := 0 to kc - 1 do        PArr^[i][j][k] := Random(100);  for i := 0 to ic - 1 do    for j := 0 to jc - 1 do      for k := 0 to kc - 1 do        mmo1.Lines.Add(Format('Arr[%d][%d][%d] = %d',          [i, j, k, PArr^[i][j][k]])); Dispose(PArr); mmo1.Lines.Add('-----------------------------');end;