MaskEdit Gleitkommafehler

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

[Bjoerk]

Du kannst auch ein ganz normales Edit nehmen und als Ereignis würde ich eher OnExit nehmen. Manche User geben ganze gerne auch ma 1,2E2 ein.

Dann vielleicht eine eigene function:

Delphi-Quellcode:

function StrToFloatDefEx(Value: string; DefaultValue, MinValue, MaxValue: double): double;
begin
  - Leerzeichen rauslöschen
  - als DecimalSeparator auch '.' zulassen
  - mit StrToFloatDef in Zahl umwandeln
  - Grenzen überprüfen
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Text := FloatToStr(StrToFloatDefEx(Edit1.Text, 0, -400, 400));
end;