delphi¶¯Ì¬Êý×éÖ¸ÕëÎÊÌâ

¾ÍÒ»¸öbuttonʼþ
procedure TForm1.btn7Click(Sender: TObject);
Type
  TMyArr = array of array of array of Integer; {¶¨ÒåÒ»¸öÈýά¶¯Ì¬Êý×éÀàÐÍ}
  Pint = ^TMyArr;
var
  PArr: Pint; {¶¯Ì¬Êý×éÖ¸Õë±äÁ¿}
  i,j,k,ic,jc,kc: Integer;
begin
  Memo1.Lines.Clear;
  {ÓÃ×÷άÊýµÄ±äÁ¿}
  ic := 2;
  jc := 3;
  kc := 4;
  {·ÖÅäÄÚ´æ; °´Ëµ¶¯Ì¬Êý×黹ÐèÒª 8 ¸ö¹ÜÀí×Ö½Ú, ÎÒ²»ÖªµÀ Delphi ÊÇÔõôЭµ÷µÄ}
  GetMem(PArr, ic * jc * kc * SizeOf(Integer));
  {ÉèÖÃÊý×é}
  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);
  {È¡Öµ}
  Memo1.Clear;
  for i := 0 to ic - 1 do
  for j := 0 to jc - 1 do
  for k := 0 to kc - 1 do
  Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, PArr^[i][j][k]]));
  //Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, TMyArr(PArr)[i][j][k]]));
  {°´Àí˵ÕâÖÖ·ÃÎÊ·½·¨Ò²¶Ô£¬¿ÉÊÇÕâÖз½·¨ÔÚ±àÒëµÄʱºòÄÜͨµÄ¹ýÈ¥£¬ÔÚÔËÐеľͱ¨´íÁË}
  {×Ô¼º·ÖÅäµÄÄÚ´æÒª¸ºÔðÊÍ·Å}
  FreeMem(PArr);
end;


µ½setlengthÄǸöµØ·½¾Í³ö´í£¬´ó¼Ò¿´¿´ÊÇÔõô»ØÊ¡£¡£¡£

---

¶¯Ì¬Êý×éÄãÖ´ÐÐGetMem×öʲô
SetLength(PArr^, ic,jc,kc);²»¾ÍÐÐÁË