Try-Except Hilfe

[eugene222]

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;