Stack Überlauf

[nahpets]

Hallo,

habe mir mal den Quelltext genommen und das Ganze ausprobiert. Bei Eingaben > 8 kommt ein Fehler bei der Bereichsprüfung, ansonsten funktioniert der vorhandene Quelltext ohne Stacküberlauf oder sonstige Probleme.
Ein Fehlerkandidat könnte dann nur noch die Prozedur Berechne sein.
Was passiert darin?

[alzaimar]

Dessenungeachtet ist es kein guter Stil, wenn ein Ereignis in einem Key-Down-Event aufgerufen wird. Abhilfe: Schmeiss ein TButton auf dein Formular, setze im Objektinspektor die Eigenschaft 'Default' auf TRUE (dann wird der Button beim ENTER gedrückt) und verfrachte zum Schluss die Logik in das ButtonClick-Ereignis.

Delphi-Quellcode:

Procedure TForm1.Button1Click (Sender : TObject);
Begin
  eingabe;
  If (zahler1 = a+2)Then   
    berechne;
  zahler1:= zahler1+1; 
End;

Nur löst das ja nicht das Stack-Problem.

[Uwe Raabe]

Delphi-Quellcode:

     
n:= 1;
For i:=1 to a  Do
begin
    n:= n*a;
end;
setLength(El,a);
setLength(Mo,n);
setLength(Re,n,a);
setLength(Vo,a);

Nach der Schleife entspricht n = a^a, was bei a=8 schon 2^24 = 16777216 entspricht. Vielleicht sollte man in diese Richtung mal weiter forschen.

Bei Kombinatorik muss man etwas aufpassen was den benötigten Speicherplatz betrifft.

[nahpets]

Hallo,

a > 8 führt zwar zu Fehlern, aber nicht zum Stacküberlauf. Und bei a = 8 braucht's ja "nur" ca. 1 GB Speicher.

[Uwe Raabe]

Leena: Vielleicht kannst du mal die komplette Unit von TForm2 posten. Sieht aus, als kämen wir so nicht weiter.