dostaję EStackOverflow błędzie podczas tworzenia zapakowany struct w Delphi 7.0

Question

Otrzymuję EStackOverflow podczas tworzenia zapakowany struct w Borland Delphi 7.0

Chcę wykonać następujące czynności:

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; 

Ale kiedy Uruchomiłem program i kliknąłem przycisk, dostaję błąd EStackOverflow na linii begin z Button1Click.

Czy ktoś może mi pomóc?

Answer 1

Proste, utworzone elementy są zbyt duże dla domyślnego rozmiaru stosu. Albo zwiększ to przy tworzeniu wątku, albo przydziel pamięć do sterty. Tak czy inaczej działa.

Wystarczy zrobić matematyki na nim:

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

Answer 2

można częściowo rozwiązać ten problem poprzez zwiększenie rozmiaru stosu w opcjach projektu.

ale nie należy:

Nie twórz te ogromne struktury na stosie. Po to jest ta kupa, a nie stos.