Ich hab eine Try Except Funktion, welche dafür sorgt, dass man in ein EditFeld keine Buchstaben eingeben kann. Jetz hab ich das Problem, dass man keine Negativen Zahlen eingeben kann. Kann mir villeicht jemand helfen oder eine bessere Alternative präsentieren.
Code:
procedure TForm1.ed_abst_Change(Sender: TObject);
BEGIN
TRY
f_abst := StrToFloat(ed_abst.Text);
EXCEPT
ed_abst.Text := ''; f_abst := 0;
END;
END;