Zitat von
Matze:
Zitat von
Muetze1:
Wie bewegen nix aus dem Edit und überschreiben auch nix...
Also wenn StrToInt fehlschlägt, dann müsste EdText gar nicht initialisiert worden sein, somit steht nachher wahrscheninlich nicht viel im Edit (wobei ich sagen muss, ich weiß grad gar nicht, ob ein String immer leer ist, wenn er nicht initialisiert ist, ich setze generell einen Wert).
Also der Code ist irgendwie wirklich nichts.
Warum nicht? Sicherlich ist der Code noch nicht perfekt (man sollte vor's Try noch
If not (Edit1.Text = '') then
setzen, aber er funzt. Am Anfang sollte das Edit-Feld natürlich leer sein. Dann kann man was eingeben. Es kann zu keinem Zeitpunkt etwas im Edit-Feld stehen, was kein Integer-Wert ist (wie es ja auch verlangt wurde).