Format-Befehl rundet falsch

[Amateurprofi]

Mach mal folgendes:

Delphi-Quellcode:

var n:real; s:string;
begin
   n:=9.995;
   str(n:0:20,s);
   ShowMessage(s);
end;

Dann siehst du so etwas wie 9.99499999999999922000

Der Wert 9.995 kann nicht exakt abgebildet werden, in diesem Fall steht in n
ein Wert, der geringfügig kleiner ist, als 9.995 und der wird korrekt abgerundet.
WorkAround auf die Schnelle:

Delphi-Quellcode:

n:=9.995;
n:=Round(n*100+0.5)/100;

[himitsu]

Zitat von Amateurprofi:

Delphi-Quellcode:

var n:real; s:string;
begin
   n:=9.995;
   str(n:0:20,s);
   ShowMessage(s);
end;

Hier besser Trunc verwenden, denn sonst behebt man keinen Fehler, sondern verschieb ihn nur.


SetRoundMode gibt es zwar auch noch, aber sowas global umzustellen ist nicht unbedingt optimal.