CurrToStr() ohne Tausender-Trennung

**cs.rumpelstilzchen**

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

zusammenfalten · markieren

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

**marabu**

Hallo Rumpelstilzchen,

du hast einfach die falsche Funktion verwendet - CurrToStr() verwendet das vordefinierte Format ffGeneral.

Besser so:

szDummy := CurrToStrF(cBetrag, ffCurrency, 2, MyFormatSettings); Freundliche Grüße

**cs.rumpelstilzchen**

Danke marabu, es funzt...

CurrToStr() ohne Tausender-Trennung

CurrToStr() ohne Tausender-Trennung

Re: CurrToStr() ohne Tausender-Trennung

Re: CurrToStr() ohne Tausender-Trennung

Forumregeln

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#2 Re: CurrToStr() ohne Tausender-Trennung 24. Jan 2008, 18:49 Hallo Rumpelstilzchen, du hast einfach die falsche Funktion verwendet - CurrToStr() verwendet das vordefinierte Format ffGeneral. Besser so: szDummy := CurrToStrF(cBetrag, ffCurrency, 2, MyFormatSettings); Freundliche Grüße
	Zitat

cs.rumpelstilzchen Registriert seit: 16. Sep 2004 Ort: NRW 72 Beiträge Delphi XE4 Professional	#4 Re: CurrToStr() ohne Tausender-Trennung 24. Jan 2008, 18:54 Danke marabu, es funzt... 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)
	Zitat