StrToFloat -> Wahnsinn kurz bevorstehend!

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

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 von himitsu:

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

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.

[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

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

[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;