Thema: Delphi Stack Überlauf

Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#12

Re: Stack Überlauf

  Alt 7. Nov 2008, 12:30
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.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat