Nutzer zwingen etwas zu wiederholen(mit If)?

[Matze]

Ähnlich, wie ich es dir hier geschrieben habe. Mit TryStrToInt kannst du z.B. ungültige Eingaben prüfen oder auch so:

Delphi-Quellcode:

try
  i := StrToInt(Edit1.Text);
except
  // kein Integer
end;

Wenn du die Exe aus Delphi startest, kann es sein, dass dir dennoch ein Fehler angezeigt wird. In den Debugger-Optionen kannst du das jedoch abstellen oder die Exe aus dem Explorer starten.

Jens' Lösung ist ok, berücksichtigt aber keine Eingaben, die per Copy&Paste eingefügt werden. Sein Code gehört übrigens ins OnKeyPress-Ereignis.

Grüße, Matze

Edit: Ein Zeilenumbruch (+ Zeilenvorschub) wäre #13#10 und nicht #12. Das sind alles ASCII-Codes. Jedes ASCII-Zeichen hat einen. Backspace ist #8, die Ziffern 0 - 9 liegen auf #48 bis #57