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 ?