在delphi 7.0中创建压缩结构时,我收到错误EStackOverflow

发布时间：2020-12-15 09:48:54 所属栏目：大数据来源：网络整理

导读：我在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 : arra

我在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的开始行上出现了EStackOverflow错误.

有人能帮我吗？

解决方法

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

只需对其进行数学计算：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!