ottengo un'EStackOverflow errore durante la creazione struct confezionato in Delphi 7.0

Question

Ricevo un EStackOverflow durante la creazione di una struttura confezionato in Borland Delphi 7.0

voglio fare quanto segue:

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; 

Ma quando Eseguo il programma e faccio clic sul pulsante, viene visualizzato un errore EStackOverflow sulla riga begin di Button1Click.

Qualcuno può aiutarmi?

Answer 1

Semplice, gli articoli creati sono troppo grandi per le dimensioni dello stack predefinite. Aumentalo quando crei il thread o alloca la memoria sull'heap. In entrambi i casi funziona.

Basta fare due conti su di esso:

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

Answer 2

Si può parzialmente risolvere questo problema aumentando la dimensione dello stack nelle opzioni di progetto.

Ma non si dovrebbe:

Non creare quelle enormi strutture in pila. Ecco a cosa serve l'heap, non lo stack.