StrToFloat -> Wahnsinn kurz bevorstehend!

[xZise]

Zitat von himitsu:

Zitat von e.asy:

Zu setzen? Also wenn ich z.B. 12.345,67 konvertieren möchte schmeisst er mir ne Exception raus.

Neee, ich meinte in deinem fmtSettings

Wenn z.B. GetLocaleFormatSettings ein englisches Format liefert
und du nur den Dezimaltrenner setzt, dann hast du zweimal das "Komma" in dieser Struktur.
Und die Exception kommt dann davon, daß der "Punkt" unbekannt ist.

Naja aber du sagtest ihn doch, er solle den Tausenderpunkt vergessen. Dann tritt doch aber gerade dein Fall ein, in den zwei Kommata gesetzt sind.

MfG
Fabian

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

[SteffenSchm]

StrToFloat erwartet im umzuwandelnden String kein Tausender-Trennzeichen.
Das steht zwar nicht so ausdrücklich in der Hilfe, ist aber so!

Man müsste also zunächst auf Tausender-Trennzeichen prüfen und diese Zeichen dann aus dem String löschen.

[Satty67]

...die Tausender Trennzeichen werden sowohl im Ausgangspost, als auch bei den vielen Beispielen zuvor entfernt.

[SteffenSchm]

Oh, da hatte ich nur zu oberflächlich drüber geschaut - Sorry !

Dann ist es wirklich merkwürdig. Vlt liegt der Fehler ja ganz woanders (Anforderung von Speicherplatz für die TStringList?).

[ele]

Zitat von shmia:

Meine Funktion aus Betrag #6 ist "kampferprobt" durch Unit-Tests;
sie funktioniert also mit hoher Wahrscheinlichkeit immer.
(Es sei denn es wird wie in der Schweiz und in Liechtenstein grundsätzlich das Komma verwendet.)

Deine Funktion ist gefährlich! Es ist nämlich unter Umständen unmöglich zwischen einer Zahl, welche das Komma (,) als Tausendertrennzeichen verwendet und einer Zahl, welche das Komma als Dezimalkomma verwendet zu unterscheiden. Deine Funktion geht davon aus, dass die Zahl immer mit Dezimalkomma daherkommt, was wenn das nicht der Fall ist? Aus '3,145' machst du '3dezimalkomma145', was aber wenn der (angelsächsische) Anwender Dreitausendeinhundertundfünfunvierzig gemeint hat?

Da versagen deine Unittests leider, weil sie diesen Fall anscheinend nicht abdecken.