Runden und Currency

Thema durchsuchen

Ansicht

Themen-Optionen

Offene Frage von "Mario"

Ein Thema von Mario · begonnen am 12. Jul 2004 · letzter Beitrag vom 12. Jul 2004

Vorheriger Beitrag

Nächster Beitrag

Mario

Registriert seit: 7. Apr 2003
567 Beiträge

Delphi 2006 Enterprise

Runden und Currency

12. Jul 2004, 10:51

Hallo,

ich habe folgenden Test mit Currency (Delphi 7) gemacht:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var cur: Currency;

begin

  cur := 2000.5; // -> Ausgabe 2000 EUR

  ShowMessage(CurrToStrF(cur, ffCurrency, 0));

  cur := 1.5; // -> Ausgabe 2 EUR

  ShowMessage(CurrToStrF(cur, ffCurrency, 0));

end;

Einmal wird auf und einmal abgerundet? Habe ich hier einen Denkfehler oder ist es ein Fehler in Delphi?