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. Delphi-Referenz durchsuchen

Format.

**k--**

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

markieren

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

markieren

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,

markieren

Delphi-Quellcode:

			var e : Extended;

begin

  e := 123456;

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

**k--**

Zitat von Lannes:

Hallo,

markieren

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.

Variable oder Label.Caption formatieren?

Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Re: Variable oder Label.Caption formatieren?

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.875 Beiträge Delphi 11 Alexandria	#2 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 21:25 Schau dir mal die Konstante ThousandSeparator an. Markus Kinzler
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#3 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 21:27 Und FloatToStr und evtl. Format. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.875 Beiträge Delphi 11 Alexandria	#5 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 22:02 Was zeit er an? Versuch mal markieren Delphi-Quellcode: DecimalSeparator := ','; ThousandSeparator := '.'; LWert1.Caption := FloatToStr(a)+' $'; Markus Kinzler
	Zitat

k-- Registriert seit: 24. Feb 2007 Ort: Berlin 9 Beiträge Delphi 7 Professional	#6 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 22:04 funktioniert leider auch nicht. wenn für a bspw 62500 rauskommt zeigt er mir im label "62500 $" an.
	Zitat

Lannes Registriert seit: 30. Jan 2005 Ort: Münster 745 Beiträge Delphi 3 Professional	#7 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 22:11 Hallo, markieren Delphi-Quellcode: var e : Extended; begin e := 123456; s := Format('%.2n $',[e]); MfG Lannes (Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
	Zitat

k-- Registriert seit: 24. Feb 2007 Ort: Berlin 9 Beiträge Delphi 7 Professional	#8 Re: Variable oder Label.Caption formatieren? 24. Feb 2007, 22:22 Zitat von Lannes: Hallo, markieren 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.
	Zitat