MaskEdit Gleitkommafehler

**MarcoGöli**

Hallo Community

Ich hab in Delphi ein MaskEdit eingefügt, in welchem positive wie negative Zahlen eingefügt werden können. Dies klappt auch ohne Fehlermeldung. Nun wenn ich im OnChange des MaskEdits nur von -400 bis +400 die Eingabe prüfe, dann wird erscheint immer die Fehlermeldung: ' ' ist kein gültiger Gleitkommawert.

markieren

Code:

			procedure TForm9.MaskEdit1Change(Sender: TObject);

begin

  if (StrToFloat(MaskEdit1.Text) < -400) or (StrToFloat(MaskEdit1.Text) > 400) or (MaskEdit1.Text = '') then

  MaskEdit1.Text := '0';

  Edit1.Text := MaskEdit1.Text;

end;

Vielleicht weis einer von euch was da schief ist.

MaskEdit Gleitkommafehler

MaskEdit Gleitkommafehler

Forumregeln