Währung formatieren

[Joseppe]

Hallo!

ich lese aus einer Datenbank einen Preis für einen Artikel aus. Dieser soll im Format 1000,56 (also Euro + , + 2 Stellen für Cent-Beträge) ausgegeben werden.

Wie formatiere ich den Wert entsprechend? Stehe da etwas auf dem Schlauch und die Hilfe bzw. Web-Suche hat mich auch noch nicht schlauer gemacht.

Meine erster Versuch sieht so aus:

Delphi-Quellcode:

    preishelp := data_rd.item['preis'].tostring;
    preis := Convert.ToSingle(preishelp);
    preishelp := math.Round(preis,2).tostring+' €';

Habe ich jedoch Werte wie 11,70 Euro (also an zweiter Stelle nach dem Komma eine "0"), wird nur "11,7" angezeigt. Das ist ärgerlich.

Vielen Dank im Voraus für eure Hilfe.

Gruß

Joseppe

[s-off]

Hallo,

'FormatFloat'

Edit: Screenshot angefügt

[Joseppe]

Ihr seid großartig und verdammt schnell! Vielen Dank dafür!

Ich hab´s hinbekommen! Und wieder etwas schlauer geworden


Bis bald, Joseppe

P.S.: Hier habe ich noch etwas im Web gefunden:
FormatFLoat

[s-off]

Zitat von Joseppe:

P.S.: Hier habe ich noch etwas im Web gefunden:
FormatFLoat

Das findest Du auch alles in der Delphi-Hilfe

[Joseppe]

Mahlzeit!

StrToCurr aus der Unit Sysutils ist mittlerweile mein Favorit .


Gruß

Joseppe

[Khabarakh]

Das wäre dann aber genau der umgekehrte Vorgang .
Jedenfalls gibt es hier keinen Grund, irgendwelche Delphi-RTL-Funktionen einzusetzen, der Standardweg ist folgender:
preisHelp := preis.ToString('c');