StrToFloat -> Wahnsinn kurz bevorstehend!

[e.asy]

Moin Community,

ich drehe hier gerade am Rad und zwar gewaltig, auch habe ich schon im Forum hier gesucht, und alles bringt irgendwie nichts.

Ich bin dabei Textdateien automatisiert einzulesen und abzuarbeiten.. Nun habe ich mit StrToFloat ein Problem, und jede Variante bringt mir entweder eine Fehlermeldung oder ich bekomme 0 als Value zurück.

Mein System: Win7 Pro deutsch, Delphi 2010 Pro.

Ausgangsbasis:

Delphi-Quellcode:

var
  aStr: String;
  ba_entry: TStringList;
  dValue, dBalance: Real;
  fmtSettings: TFormatSettings;

begin
  [...]

  Datei einlesen, Zeile zerlegen, Werte entsprechend in ba_entry haben. Debugger ergibt folgende Werte:

    ba_entry.Strings[6]='12,34';
    ba_entry.Strings[7]='12.345,67';


1) Variante:

  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  dValue:=StrToFloat(ba_entry.Strings[6], fmtSettings); <- Liefert wie erwartet 12.34 zurück.
  dBalance:=StrToFloat(ba_entry.Strings[7], fmtSettings); <- Hier gibts eine Exception "Kein gültiger Gleitkommawert"...

2) Variante:
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  dValue:=StrToFloat(StringReplace(ba_entry.Strings[6], fmtSettings.ThousandSeparator, '', [rfReplaceAll]), fmtSettings); <- Liefert 12.34 zurück.
  dBalance:=StrToFloat(StringReplace(ba_entry.Srings[7], fmtSettings.ThousandSeparator, '', [rfReplaceAll]), fmtSettings); <- Liefert 0 Zurück (Keine Exception)!

3) Variante
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

  // Werte Wandeln.
  aStr:=StingReplace(ba_entry.Strings[6], fmtSettings.ThousandSeparator, '', [rfReplaceAll]);
  dValue:=StrToFloat(aStr); <- Liefert 12.34 zurück.

  aStr:=StingReplace(ba_entry.Strings[7], fmtSettings.ThousandSeparator, '', [rfReplaceAll]);
  dBalance:=StrToFloat(aStr); <- Liefert 0 Zurück (Keine Exception)!

Dann hab ich mir gedacht, okay, scheint irgendwas mit der Stringverwaltung zu sein... Also:

4) Variante:
  GetFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  // Format setzen.
  fmtSettings.DecimalSeparator:=',';

  // Werte Wandeln.
  dBalance:=StrToFloat('12345,67');
  // Alternative: dBalance:=StrToFloat('12345,67', fmtSettings);

  ^ Diese beiden Versuche liefern ebenfalls den Wert 0 zurück... Und ich weiss nicht warum...

  [...]
end;

Joar, da steh ich nun und weiss nicht weiter... Entweder bekomm ich eine Exception an den Kopf geballert, oder halt 0.. Aber nie den Wert. Allerdings tritt dies _immer_ nur bei 'dBalance' und NIE(!) bei dValue auf.. Ich kanns auch umdrehen, also erst dBalance:= und dann dValue per StrToFloat versuchen zu konvertieren.. Immer noch das gleiche.
Ich mein, vielleich bin ich ja zu Blöde oder seh den Wald vor lauter Bäumen nicht...


Irgendjemand einen Rat/Hilfe/Knarre () ?


Sonnige Grüsse,
easy.