Variable oder Label.Caption formatieren?

[k--]

Hallo,

ich habe ein problem mit dem Formatieren eines reinen Zahlenstrings / einer Variable in delphi 7. Es geht darum, dass ein Geldwert in $ ausgedrückt werden soll, was ansich kein problem ist. Ich möchte aber, dass nach jeder tausender stelle ein Punkt eingefügt wird, sprich

aus 1435299,95 $
wird 1.435.299,95 $

das ganze soll an ein label ausgegeben werden (wo dann auch das $-zeichen angehangen wird).
Hab bereits die Boardsuche benutzt, finde aber nur möglichkeiten mit datenbanken, welche ich vermeiden möchte.


mfg

k--

[mkinzler]

Schau dir mal die Konstante ThousandSeparator an.

[3_of_8]

Und FloatToStr und evtl. Format.

[k--]

vielen dank, leider funktioniert die von mir angewandte methode nicht, evtl mache ich etwas falsch:

Delphi-Quellcode:

var fs : TFormatSettings;

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

[...]

  LWert1.Caption := FloatToStr(a, fs)+' $';
  LWert2.Caption := FloatToStr(tun, fs)+' $';
  LWert3.Caption := FloatToStr(all, fs)+' $';

es gibt kein fehler beim compilieren, aber die formatierung wird leider nicht angewand )=

[mkinzler]

Was zeit er an?
Versuch mal

Delphi-Quellcode:

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

LWert1.Caption := FloatToStr(a)+' $';

[k--]

funktioniert leider auch nicht.


wenn für a bspw 62500 rauskommt zeigt er mir im label "62500 $" an.

[Lannes]

Hallo,

Delphi-Quellcode:

var e : Extended;
begin
  e := 123456;
  s := Format('%.2n $',[e]);

[k--]

Zitat von Lannes:

Hallo,

Delphi-Quellcode:

var e : Extended;
begin
  e := 123456;
  s := Format('%.2n $',[e]);

hey danke, im testprogramm hats perfekt funktioniert, jetz nur noch portieren (;


//edit: hat geklappt, danke nochmals.