|
|
@@ -130,11 +130,10 @@ var
|
|
|
{RoundTo}
|
|
|
function InnerRoundTo(const AValue: Extended; const ADigit: Integer; RoundMode: TRoundMode): Extended;
|
|
|
var
|
|
|
- LFactor, Offset: Extended;
|
|
|
- HFactor: Integer;
|
|
|
+ LFactor, Offset, HFactor: Extended;
|
|
|
begin
|
|
|
LFactor := IntPower(10, ADigit);
|
|
|
- HFactor := Trunc(IntPower(10, abs(ADigit)));
|
|
|
+ HFactor := IntPower(10, abs(ADigit));
|
|
|
Result := AValue;
|
|
|
case RoundMode of
|
|
|
rmNearest:
|
