Einzelnen Beitrag anzeigen

Benutzerbild von cs.rumpelstilzchen
cs.rumpelstilzchen

Registriert seit: 16. Sep 2004
Ort: NRW
72 Beiträge
 
Delphi XE4 Professional
 
#1

CurrToStr() ohne Tausender-Trennung

  Alt 24. Jan 2008, 18:57
Hallo Leute,
hab ein kleines Problem und komme einfach nicht auf die Lösung:

Ich möchte einen Currency-Wert in einen String umwandeln und dabei die Windows-Einstellungen berücksichtigen. Also bietet sich CurrToStr an...

Delphi-Quellcode:
var
  szDummy : String;
  cBetrag : Currency;
  MyFormatSettings: TFormatSettings;

begin
  cBetrag := 12345.56;
  GetLocaleFormatSettings(LOCALE_USER_DEFAULT,MyFormatSettings);
  szDummy := CurrToStr(cBetrag,MyFormatSettings);

end;
Obwohl im Windows Tausenderpunkte eingestellt sind und auch in den MyFormatSettings so zu sehen sind, wird im Beispiel '12345,56' ausgegeben. Die Tausender-Trennung - obwohl mit '.' in den FormatSettings angegeben, wird nicht ausgeführt...

Was mache ich da falsch???

Danke für jede Hilfe...
Der weiß, daß er nichts weiß, wie alle anderen auch nichts wissen.
Nur weiß er, was die anderen und auch er selbst noch lernen müssen.
(Novalis 1772 - 1801)
  Mit Zitat antworten Zitat