'1.000,0000' ist kein gültiger Gleitkommawert

[LOMBI]

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.

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

[mkinzler]

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

[Luckie]

Zitat:

Zitat von LOMBI

Wer hilft bitte?

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

[LOMBI]

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

[mkinzler]

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

[Helmi]

Zitat:

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:

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;