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.

or (MaskEdit1.Text = '') als Letztes ... Was wird StrToFloat wohl machen, wenn es vorher auf den '' trifft?
Außerdem gibt es noch viel mehr "ungültige" Strings, als nur den '' .

PS: StrToFloatDef oder TryStrToFloat

hallo himitsu

Mit TryStrToFloat und StrToFloatDef zeigt mir Delphi immer einen Fehler an beim Debuggen.

In OnCreate der Form habe ich:

markieren

Code:

  FormatSettings.DecimalSeparator := '.';
  Application.UpdateFormatSettings := false;

Was zeigt Delphi denn für einen Fehler beim Debuggen?

Wenn ich im OnChange folgendes eintrage:

markieren

Code:

procedure TForm9.MaskEdit1Change(Sender: TObject);

begin
  if (StrToFloatDef(MaskEdit1.Text) < -400) or (StrToFloatDef(MaskEdit1.Text) > 400) or (MaskEdit1.Text = '') then
  MaskEdit1.Text := '0';
  Edit1.Text := MaskEdit1.Text;
end;

Dann schreibt mir Delphi:

[dcc64 Fehler] ueinstellungkopfzeile.pas(160): E2250 Es gibt keine überladene Version von 'StrToFloatDef', die man mit diesen Argumenten aufrufen kann

StrToFloatDef