Rundungsproblem in Delphi

[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;