Hallo,

in meinem TEdit wird die Währung richtig mit Tausendertrennung angezeigt.
Mit dem Speichern tritt die Meldung auf, dass es sich um keinen gültigen
Gleitkommawert handelt.

markieren

Delphi-Quellcode:

var
  e: Extended;
begin
  with Sender as TEdit do
    if TryStrToFloat(Text, e) then
      Text := Format('%0.4n', [e]);

Wer hilft bitte?

Gruß
Lombi

Wie sind die Systemeinstellungen für Dezimal- und Tausendertrenner?

Zitat von LOMBI:

Wer hilft bitte?

Das grau zwischen deinen Ohren. Tausendertrennzeichen gehören nicht in einen Fließkommawert. Entferne sie.

Heißt das, ein Tausendertrenner ist ausschließlich über TMaskEdit möglich?

Wichtig ist halt das das Format mit dem im System hinterlegten übereinstimmt oder die Konstanten richtig gesetzt sind.

Zitat von LOMBI:

Heißt das, ein Tausendertrenner ist ausschließlich über TMaskEdit möglich?

Er meinte damit, dass der Tausendertrenner ruhig in deinem Edit drin sein darf, nur wenn du es in ein Float (deinem e) konvertieren willst, muss der Tausendertrenner raus.

So was in der Art:

zusammenfalten · markieren

Delphi-Quellcode:

var
  e: Extended;
  S: String;
begin
  with Sender as TEdit do
    begin
      S := StringReplace(Text, '.', '', [rfReplaceAll]);
 
      if TryStrToFloat(S, e) then
        Text := Format('%0.4n', [e]);
    end;