StrToFloat -> Wahnsinn kurz bevorstehend!

[himitsu]

Zitat von xZise:

Naja aber du sagtest ihn doch, er solle den Tausenderpunkt vergessen.

nee, sagte ich nicht

Zitat von himitsu:

Was passiert, wenn du nicht vergißt auch noch den Tausenderpunkt zu setzen?

[Satty67]

Da ältere Delphi-Versionen keine überladende Funktion für StrToFloat mit FormatSettings kennen, gibt es ja noch eine alte Variante mit Überschreiben des SysUtils.DecimalSeparator.

Delphi-Quellcode:

var
  r : Real;
  s : String;
  OldDecimalSeparator : Char;
begin
  // Wenn Separatoren lokalen Settings entsprechen
  s := '12.345,67';
  s := StringReplace(s, SysUtils.ThousandSeparator, '', [rfReplaceAll]);
  r := StrToFloat(s);
  ShowMessage(Format('%.3f',[r]));

  // Wenn bekannte, aber evtl. von lokalen Einst. abweichende Separatoren
  s := '12,345.67';
  OldDecimalSeparator := SysUtils.DecimalSeparator;
  SysUtils.DecimalSeparator := '.';
  s := StringReplace(s, ',', '', [rfReplaceAll]);
  r := StrToFloat(s);
  SysUtils.DecimalSeparator := OldDecimalSeparator;
  ShowMessage(Format('%.3f',[r]));
end;

[xZise]

Zitat von himitsu:

Zitat von xZise:

Naja aber du sagtest ihn doch, er solle den Tausenderpunkt vergessen.

nee, sagte ich nicht

Zitat von himitsu:

Was passiert, wenn du nicht vergißt auch noch den Tausenderpunkt zu setzen?

Ähr joar... Ein bisschen zu viele "Verneinungen".

Aber das macht er ja immer im 1. Post

MfG
Fabian

[shmia]

Ähmmm...ich habe im Beitrag #6 eine Funktion gezeigt, die automatisch
den Dezimaltrenner korrigiert und den Tausendseparator entfernt.
Hat sich das eigentlich mal jemand angeschaut?
Also folgende Zahlen lassen sich damit umwandeln.

Delphi-Quellcode:

var
  x : double;
begin
  x := StrToFloat(MakeValidFloatString('3.14'));
  x := StrToFloat(MakeValidFloatString('3,14'));
  x := StrToFloat(MakeValidFloatString('1,000,000.5'));
  x := StrToFloat(MakeValidFloatString('8.000,0'));

Was die Funktion natürlich nicht kann sind Zahlen, die nur einen
Tausendseparator enthalten, aber keinen Dezimaltrenner haben.
Aber ein Mensch (ohne Zusatzinfo) würde daran auch scheitern:
2,005 - ist das jetzt 2005 oder 2+5/1000 ?

[Satty67]

Zitat von shmia:

2,005 - ist das jetzt 2005 oder 2+5/1000 ?

Kommt halt auf die Situation an, wenn die Sprachumgebung bekannt ist, braucht man ja nicht testen.

Mir persönlich fallen eher Situationen ein, bei denen die verwendeten Separatoren bekannt sind. Reele Zahlen ohne Nachkommastelle werden ja leider auch wie eine ganze Zahl gespeichert (wenn man keine mind. Nachkomma erzwingt). Das wird bei großen Zahlenkolonen sicher dann öfter vorkommen, genauso wie dann das Tausender-Trennzeichen mit gespeichert wird (wenn schon die unhandliche Form des Strings gewählt hat).