delphi动态数组指针问题

时间：2023-03-09 18:47:47
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 := ;

   jc := ;

   kc := ;

   {分配内存; 按说动态数组还需要 8 个管理字节, 我不知道 Delphi 是怎么协调的}

   GetMem(PArr, ic * jc * kc * SizeOf(Integer));

   {设置数组}

   SetLength(PArr^, ic,jc,kc);

   {赋值}

   for i :=  to ic -  do

     for j :=  to jc -  do

       for k :=  to kc -  do

         PArr^[i][j][k] := Random();

   {取值}

   Memo1.Clear;

   for i :=  to ic -  do

     for j :=  to jc -  do

       for k :=  to kc -  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;

这一段代码在Delphi 2007版本可以通过并运行，但在delphi 7下可以通过编译，却无法运行，报读地址错误。为什么？

相关文章