Abfangen von Fehleingaben

[BenjaminH]

Try-Except geht auch, aber Fehler garnicht erst enstehen zu lassen ist viel schöner:

Im OnKeyPress des Edits überprüfen, ob die eingegebene Taste(Key) erlaubt ist.
Falls sie nicht erlaubt ist einfach Key #0 zuweisen

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Var Zahlen:set of Char;
begin
   Zahlen:=['1','2','3','4','5','6','7','8','9','0'];
   If not (Key in Zahlen) Then
     Key:=#0;
end;