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.

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.

[himitsu]

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

[MarcoGöli]

hallo himitsu

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

In OnCreate der Form habe ich:

Code:

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

[Dejan Vu]

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

[MarcoGöli]

Wenn ich im OnChange folgendes eintrage:

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

[DeddyH]

StrToFloatDef

[MarcoGöli]

Den DecimalSeparator Punkt benötige ich für ein anderes Editfeld. Im Oi habe ich unter MaskEdit "#999', womit ein minus oder plus an erster Stelle stehen kann. Ansonsten können nur Zahlen ein gegeben werden. Deshalb begreife ich das mit dem StrToFloatDef nicht ganz. Soviel Erfahrung mit Delphi habe ich nun auch noch nicht.

[himitsu]

Die Mask '#999' erlaubt aber auch einen Leerstring, vorallem beim Bearbeiten, genauso wie man auf nur '-' dort eingetragen haben kann.

Aber warum dann Float, wo dort doch nur Int vorkommen kann?

Delphi-Quellcode:

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

Dafür haben FloatToStr, StrToFloat und TryStrToFloat einen zweiten, bzw. StrToFloatDef einen dritten Parameter.

[DeddyH]

StrToFloatDef erwartet mindestens 2 Parameter: den umzuwandelnden String und einen Standardwert, der dann genommen wird, wenn die Umwandlung nicht möglich ist. Daher kann der Compiler mit

Zitat:

StrToFloatDef(MaskEdit1.Text)

nichts anfangen, da kein Standardwert angegeben wurde.

[MarcoGöli]

Float hab ich genommen, weil ein minus oder pluszeichen an erster Stelle steht.
Heisst ich müsste die Leerzeichen mittels StringReplace löschen oder mit der Trim Funktion, jedoch bleibt auch dabei der Fehler bestehen.