Maskedit fuer Currency

FrankBKK · Beiträge: 29 Win XP D5

Hilfe, ich verzweifle - jetzt hab ich schon Stunden
damit verbraten ne Maske zu basteln um Waehrungen oder
Zahlen mit Nackommastellen vernuenftig eingeben zu koennen.
Ich arbeite mit , als Tausendertrenner und . als Dezimalkomma

So was funktioniert leider nicht: $0,000.00;0;0

Alles was ich will, ist ne Zahl einzugeben die dann formatiert
angezeigt werden soll, d.h. aus

Eingabe soll angezeigt werden
0 => 0.00
1.1 => 1.10
1000 => 1,000.00
etc.

Andere Komponenten als TField.EditMask scheiden leider aus ...

Kann mir da mal jemand auf die Spruenge helfen und ein Beispiel posten ?

HECHT · Beiträge: 24 D7

Hallo,

evt. hilft das:

'%n:-@''##0.00'

oder ich nehm normal das, da ich es von der DB lese/schreibe

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

uses
  SysUtils

ShowMessage(Format('Money            = %m', [12345.678]));
//ergibt:
Money            = $12,345.68

oder formatiere das Teil schon auf der DB

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme