MaskEdit Gleitkommafehler

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