CurrToStr() ohne Tausender-Trennung

[cs.rumpelstilzchen]

Hallo Leute,
hab ein kleines Problem und komme einfach nicht auf die Lösung: :gruebel:

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

[marabu]

Hallo Rumpelstilzchen,

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

Besser so:

Delphi-Quellcode:

szDummy := CurrToStrF(cBetrag, ffCurrency, 2, MyFormatSettings);

Freundliche Grüße

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.

[cs.rumpelstilzchen]

:hello: Danke marabu, es funzt...