me sale un error al crear EStackOverflow estructura envasados ​​en Delphi 7.0

Question

Recibo un EStackOverflow al crear una estructura envasados ​​en Borland Delphi 7.0

Quiero hacer lo siguiente:

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; 

Pero cuando Ejecuto el programa y hago clic en el botón, obtengo un error de EStackOverflow en la línea begin de Button1Click.

¿Alguien me puede ayudar?

Answer 1

Simple, los elementos creados son demasiado grandes para el tamaño de pila predeterminado. O incremente eso al crear el hilo o asigne la memoria en el montón. De cualquier manera funciona.

Justo a hacer los cálculos en él:

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

Answer 2

Usted puede resolver en parte este mediante el aumento de tamaño de la pila en las opciones de proyecto.

Pero no se debe:

No crear esas enormes estructuras en la pila. Para eso está el montón, no la pila.