Rundungsproblem in Delphi

[Uwe Raabe]

Ich habe hier noch einen recht alten Code von John Herbster gefunden. Der hat bei mir in der Vergangenheit eigentlich immer gut funktioniert.

[haentschman]

Moin...

Zitat:

Es ist auch aus einem anderen Grund nicht ratsam auf Extended zu wechseln

Es gibt 3 Überladungen von SimpleRoundTo, incl. Double, die verwendet werden können.

[Delphi.Narium]

@haentschman
Es geht nach wie vor um Delphi 7 und dort gibt es nur

function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;

Delphi-Quellcode:

function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;