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... :roll:


Irgendjemand einen Rat/Hilfe/Knarre (;)) ?


Sonnige Grüsse,
easy.

[mkinzler]

Ich vermute mal das als ThousandSeparator , verwendet wird, deshalb schlägt die Zuwewisunf fehl

Delphi-Quellcode:

  fmtSettings.ThousandSeparator:='.';
  fmtSettings.DecimalSeparator:=',';
  fmtSettings.ThousandSeparator:='.';

Btw. Statt StrToFloat würde ich TryStrToFloat() oder StrToFloatDef() verwenden

[DeddyH]

Unter Delphi 2007 funktioniert es bei mir so:

Delphi-Quellcode:

procedure TfrmTest.btnTestClick(Sender: TObject);
const Zahl = '12.345,67';
var bla: double;
    fmtSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
  fmtSettings.DecimalSeparator := ',';
  fmtSettings.ThousandSeparator := '.';
  bla := StrToFloat(StringReplace(trim(Zahl),fmtSettings.ThousandSeparator,'',[rfReplaceAll]));
  ShowMessage(Format('%f',[bla]));
end;

[WoGe]

Da Delphi2010, änder mal String in Ansistring
Real in Double

Wenn das nicht hilft alle Punkte und Komma wegschmeissen
Nach Integer konvertieren und dann durch 100 teilen..


Gruss
wo

[Sir Rufo]

Schau dir mal das da an

Damit hast du keine Sorgen mehr, sondern gleich ein paar Probleme weniger und der Zugriff ist wesentlich einfacher ;)

[shmia]

Ich hätte hier noch eine Funktion, die die Zahlenstrings so aufbereitet,
dass man sie leicht einlesen kann:

Delphi-Quellcode:

function MakeValidFloatString(const s: string): string;
var
   i : Integer;
   dpchar : Char;
begin
   dpchar := #0;
   // Dezimaltrennzeichen suchen ausgehend von "rechts"
   for i := length(s) downto 1 do
   begin
      case s[i] of
         ',':
         begin
            dpchar := ',';
            Break;
         end;
         '.':
         begin
            dpchar := '.';
            Break;
         end;
      end;
   end;

   // Tausender Separator aus dem String entfernen, weil es
   // bei der Umwandlung von String zu Float stört
   // wenn ein Dezimaltrennzeichen gefunden wurde, dann ist
   // das Tausendertrennzeichen gerade das andere
   case dpchar of
      ',': Result := StringReplace(s,'.', '',[rfReplaceAll]);
      '.': Result := StringReplace(s,',', '',[rfReplaceAll]);
   else
      Result := s;
   end;

   // Dezimal Separator ersetzen
   if (dpchar <> #0) and (dpchar <> DecimalSeparator) then
      Result := StringReplace(Result, dpchar, DecimalSeparator, []);

   if (Trim(Result)  = '') then
      Result := '0';
end;

[Christian Seehase]

Moin Zusammen,

dass das mit dem ThousandsSeparator nicht funktioniert, ergibt, zumindest für D7 und D2006, ein Blick in die Hilfe von StrToFloat:

Zitat:

Thousand separators and currency symbols are not allowed in the string.

Vermutlich ist das bei 2010 auch so.

[Tyrolean]

Zitat:

Zitat von WoGe (Beitrag 1053689)

Da Delphi2010, änder mal String in Ansistring
Real in Double

Wenn das nicht hilft alle Punkte und Komma wegschmeissen
Nach Integer konvertieren und dann durch 100 teilen..


Gruss
wo

Und was ist wenn die Zahl 3 nachkoma hat?

[Sir Rufo]

Man kann es eben halbherzig oder richtig machen ;)

[shmia]

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

[Sir Rufo]

Sage mal, stimmt das mit deiner Delphi Version "Delphi 2 Desktop"?

Vielleicht kann die noch gar nicht so große Zahlen ... :stupid:

[Teekeks]

Er sagte doch

Zitat:

Mein System: Win7 Pro deutsch, Delphi 2010 Pro.

[Hawkeye219]

Hallo easy,

lass' mich raten: du hast die Optimierung für dein Projekt eingeschaltet und beobachtest die Werte im Debugger. Falls dies so ist, schalte die Optimierung aus und führe die Versuche erneut durch.

Gruß Hawkeye

[e.asy]

Moin,

erstmal danke für die reichhaltige Reaktion. :)

Zitat:

Zitat von WoGe (Beitrag 1053689)

Da Delphi2010, änder mal String in Ansistring
Real in Double

Wenn das nicht hilft alle Punkte und Komma wegschmeissen
Nach Integer konvertieren und dann durch 100 teilen..


Gruss
wo

Ja alles Probiert... Was mich ja verwundert, ist dass der 2. Wert (12,34) immer ohne zu murren richtig konvertiert wurde.

Zitat:

Zitat von Sir Rufo (Beitrag 1053690)

Schau dir mal das da an

Damit hast du keine Sorgen mehr, sondern gleich ein paar Probleme weniger und der Zugriff ist wesentlich einfacher ;)

Alles klar, werd ich mir mal anschauen.

Zitat:

Zitat von Christian Seehase (Beitrag 1053702)

Moin Zusammen,

dass das mit dem ThousandsSeparator nicht funktioniert, ergibt, zumindest für D7 und D2006, ein Blick in die Hilfe von StrToFloat:

Zitat:

Thousand separators and currency symbols are not allowed in the string.

Vermutlich ist das bei 2010 auch so.

WTF? :shock: Du hast recht.. Wald und Bäume und so. ;)

Zitat:

Zitat von Sir Rufo (Beitrag 1053708)

Sage mal, stimmt das mit deiner Delphi Version "Delphi 2 Desktop"?

Vielleicht kann die noch gar nicht so große Zahlen ... :stupid:

Ups. :roll: Ist wohl Default-Wert hier im Forum.. Gleich mal ändern. :)

Zitat:

Zitat von Hawkeye219 (Beitrag 1053732)

Hallo easy,

lass' mich raten: du hast die Optimierung für dein Projekt eingeschaltet und beobachtest die Werte im Debugger. Falls dies so ist, schalte die Optimierung aus und führe die Versuche erneut durch.

Gruß Hawkeye

Welche Optimierung?


Sonnige Grüsse,
easy.

[e.asy]

Zitat:

Zitat von Sir Rufo (Beitrag 1053690)

Schau dir mal das da an

Damit hast du keine Sorgen mehr, sondern gleich ein paar Probleme weniger und der Zugriff ist wesentlich einfacher ;)

Ja ne, kann ich nicht benutzten, da es keine CSV-Datei ist.. Leider ein wenig fummelig das ganze.. Aber das Einlesen etc. macht auch keine Probleme halt nur das Konvertieren von "grossen" Zahlen.


Sonnige Grüsse,
easy.

[e.asy]

Zitat:

Zitat von Hawkeye219 (Beitrag 1053732)

Hallo easy,

lass' mich raten: du hast die Optimierung für dein Projekt eingeschaltet und beobachtest die Werte im Debugger. Falls dies so ist, schalte die Optimierung aus und führe die Versuche erneut durch.

Gruß Hawkeye

Ah, Optimierung gefunden... Gleiches Resultat:

Code:

                GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fmtSettings);
                fmtSettings.DecimalSeparator:=',';

                dBalance:=StrToFloat('12345,67', fmtSettings);

dBalance ist und bleibt 0...

Ich verstehe es einfach nicht... :(

EDIT:

Jetzt kommt der Hammer, Wenn ich das fmsSettings.DeciamlSeparator:=... auskommentiere geht es... Natürlich habe ich das Problem, dass das ganze dann nur auf ein Wintendo mit deutscher Locale funktioniert... Oh man.. Ich geh erstmal eine rauchen....

Sonnige Grüsse,
easy.

[himitsu]

Erstmal mußt du bedenken, daß StrToFloat und Co. sprachabhängige Systemeinstellungen für "," "." usw. verwenden.

englisch
- Dezimalpunkt
- Komma als Tausendertrennzeichen

deutsch
- Dezimalkomma
- Tausenderpunkt

Dann gibt es in einigen Windows 7-Intallationen einen "Fehler", welcher dein Programm andere Werte auslesen läßt, als in der Systemsteuerung angezeigt werden.
- speziell betrifft das einige deutsche (vorinstallierte) Windows 7, wo die deutschen Einstellungen nicht überall eingetragen sind
- Delphi list dabei dann leider die englischen Einstellungen aus. obwohl der Benutzer auf deutsch eingestellt ist.
(Problem: dort sind natürlich , und . vertauscht)

Dazu gibt es schon mehrere Threads
> Lösung: Die Sprachoptionen in Windows auf Englisch stellen und dann zurück auf Deutsch,



Lösungen für dich und dein Problem, denn so oder so bleibt das Zahlenformat sprachabhängig:
- entweder die Zahlen in einem sprachabhängigen Format besorgen
- oder StrToFloat sprachunabhängig machen (PS: es gibt ein StrToFloat, welches ein FormatSettings benutzt)
[edit]

Zitat:

Ah, Optimierung gefunden...

:thumb:

Zitat:

Gleiches Resultat:

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

PS: GetLocaleFormatSettings mußt du nicht unbedingt nutzen, es reicht auch, wenn du da einfach die (nötigen) Werte direkt setzt, also die Werte, welche von der entsprechenden Funktion genutzt werden.

[e.asy]

Zitat:

Zitat von himitsu (Beitrag 1053801)

Erstmal mußt du bedenken, daß StrToFloat und Co. sprachabhängige Systemeinstellungen für "," "." usw. verwenden.

Dessen bin ich mir bewusst. Ich mein, das Zahlenformat welches ich zu verarbeiten habe ist immer Deutsch. Ich bin |-| so kurz davor nen eigenes StrToFloat zu hacken...

Zitat:

Dann gibt es in einigen Windows 7-Intallationen einen "Fehler", welcher dein Programm andere Werte auslesen läßt, als in der Systemsteuerung angezeigt werden.
- speziell betrifft das einige deutsche (vorinstallierte) Windows 7, wo die deutschen Einstellungen nicht überall eingetragen sind
- Delphi list dabei dann leider die englischen Einstellungen aus. obwohl der Benutzer auf deutsch eingestellt ist.
(Problem: dort sind natürlich , und . vertauscht)

Dazu gibt es schon mehrere Threads
> Lösung: Die Sprachoptionen in Windows auf Englisch stellen und dann zurück auf Deutsch,

Hach... Also der Debugger gibt mit nach dem GetLocaleFormatSettings richtige Werte zurück... Und wenn es daran liegen würde, dürfte er (zumindest nach meiner Logik) nicht den 2. Wert (12,34) konvertieren sondern müsste hier auch aussteigen bzw. eine 0 zurückgeben. Oder sehe ich das falsch?

Ich mein, entweder funktioniert es top oder gar nicht.. Aber so mal hü mal hott ist ja das, was mich hier um den Verstand bringt...

Zitat:

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

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

Zitat:

PS: GetLocaleFormatSettings mußt du nicht unbedingt nutzen, es reicht auch, wenn du da einfach die (nötigen) Werte direkt setzt, also die Werte, welche von der entsprechenden Funktion genutzt werden.

Hrm... Das Probiere ich doch gleich mal durch.. Ich hatte nur in einigen Examples gesehen, dass die immer mit der GetLocale.... arbeiten bevor die an den FormatSetting "rumfummeln". ;)



Sonnige Grüsse,
easy

[himitsu]

Zitat:

Zitat von e.asy (Beitrag 1053807)

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 :wink:

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.

Zitat:

Hrm... Das Probiere ich doch gleich mal durch.. Ich hatte nur in einigen Examples gesehen, dass die immer mit der GetLocale.... arbeiten bevor die an den FormatSetting "rumfummeln".

StrToFloat nutzt nur den DecimalSeparator und den ThousandSeparator, aus dieser Struktur ... der Rest ist also unwichtig (kann gesetzt werden oder kann eben auch sonstwas oder nix enthalten)

Über GetLocale und Co. geht man, wenn mehr von der Funktion genutzt wird (bzw. man nicht weiß was alles benutzt wird) und man nur einiges davon ändert, bzw. selber setzt. So spart man sich das Ausfüllen der restlichen Werte. :angle2:

[e.asy]

GetLocaleFormatSettings liefert immer die richtigen deutschen Einstellungen zurück. Also Decimal = ',' und Thousand = '.'...

Da mir aber momentan die Zeit fehlt, der Ursache weiter auf den Grund zu gehen, und das Format für die Zahl feststeht werde ich mir schnell ein eigenes StrToFloat hacken... Hab schon jetzt über nen halben Tag mit der Fehlersuche verbraten..

Trotzdem Danke für Eure Antworten. :)


Sonnige Grüsse,
easy

[xZise]

Zitat:

Zitat von himitsu (Beitrag 1053810)

Zitat:

Zitat von e.asy (Beitrag 1053807)

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 :wink:

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:

Zitat von xZise (Beitrag 1053815)

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

nee, sagte ich nicht :angel:

Zitat:

Zitat von himitsu (Beitrag 1053801)

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:

Zitat von himitsu (Beitrag 1053834)

Zitat:

Zitat von xZise (Beitrag 1053815)

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

nee, sagte ich nicht :angel:

Zitat:

Zitat von himitsu (Beitrag 1053801)

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:

Zitat von shmia (Beitrag 1053949)

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:

Zitat von shmia (Beitrag 1053707)

Meine Funktion aus Betrag #6 ist "kampferprobt" durch Unit-Tests; 8-)
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.

[Satty67]

Zitat:

Zitat von ele (Beitrag 1054179)

eine Funktion geht davon aus, dass die Zahl immer mit Dezimalkomma daherkommt

Genau das hat er direkt drunter geschrieben ;)

Seine Funktion ist dann sehr gut, wenn weder Mensch noch Maschine wissen, welches Landesschema verwendet wird. Da ist sein Ergebnis das best mögliche. Sobald man weis, welches Zeichen der Dezimaltrenner ist, gibt es zuverlässigere Methoden.

[ele]

Ich möchte einfach sicherstellen, dass wer auch immer die Funktion benutzt, sich dieses Risikos bewusst ist. Wenn ich da z.B. an Finanzsoftware mit solchem Code denke...