delphi - 在 delphi 7.0 中创建打包结构时出现错误 EStackOverflow

Question

在 Borland Delphi 7.0 中创建打包结构时遇到 EStackOverflow

我想要执行以下操作:

Type

 T4 = packed record
     VT  : integer;
     SKT : byte;
  end;

  T3 = packed record
     O : boolean;     
     TT4 : array of T4;  
  end;

  T2 = packed record
     con  : boolean;
     TT3 : array [64..90,64..90] of T3;
  End;

  TTT = array [64..90,64..90] of T2;


procedure TForm1.Button1Click(Sender: TObject);
var  
   Arr  : TTT;
begin 
        Arr[64,64].con:=false;
end;

但是当我运行程序并单击按钮时，我在 Button1Click 的 begin 行收到 EStackOverflow 错误。

有人可以帮助我吗？

Answer 1

很简单，创建的项目对于默认堆栈大小来说太大了。要么在创建线程时增加该值，要么在堆上分配内存。无论哪种方式都有效。

计算一下:

sizeof(T4) = 5
sizeof(T3) = 5
sizeof(T2) = 3646 // if I'm right
sizeof(TTT)= 2657934