Exception Handling

Fabian · Beiträge: 42

Wie kann ich, wenn der Anwender in ein Eingabefeld, dessen Inhalt in eine numerische Variable umgewandelt wird, verhindern das es zu einem Convertierungsfehler kommt, wenn der Anwender etwas anderes als eine Zahl eingibt ?

wwerner · Beiträge: 185

einen Maskedit benutzen und dort nur Zahlen zulassen

Murdock1 · Hält's aus hier Beiträge: 9

oder so

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
    key:=#0;
end;

... fängt alle Tastendrücke ausser Zahlen ab...

mfg Peter

Code-Tag eingefügt. Marc

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme