动态数组指针应用

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;