Hallo,
ich habe folgenden Test mit Currency (Delphi 7) gemacht:
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?