StrToFloat -> Wahnsinn kurz bevorstehend!

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