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.
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.