En realidad, las funciones de redondeo nativas de Delphi no fueron de todo buenas en las versiones de años anteriores. En Delphi 7, por ejemplo, es evidente un
bug de signo en la función SimpleRoundTo.
Delphi 7:
Código Delphi
[-]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;
Delphi XE2:
Código Delphi
[-]function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
LFactor: Extended;
begin
LFactor := IntPower(10.0, ADigit);
if AValue < 0 then
Result := Int((AValue / LFactor) - 0.5) * LFactor
else
Result := Int((AValue / LFactor) + 0.5) * LFactor;
end;
Viendo el código fuente de la unidad Math, noto que Embarcadero ha insertado diversos cambios relacionados con las funciones de redondeo, y las pruebas arrojan mejores resultados que en Delphi 7. Por otra parte, parece que SetRoundMode ya no tiene efecto sobre RoundTo, lo cual puede ser bueno o malo, dependiendo de si utilizábamos o no esta última para hacer operaciones de
ceil y
floor (como las ilustradas por Nelson en el mensaje 17).
novato_erick no deberá tener más problemas si usa una versión reciente de Delphi. Pero cabe recordarle que hay muchas funciones hechas por la Comunidad (como las que ya le sugirieron) que puede emplear de manera igualmente efectiva en versiones de Delphi como la 7.
Tal vez el siguiente código ayude a apreciar lo que comento en los párrafos anteriores. Para quien pueda hacerlo, recomiendo probarlo tanto en Delphi 7 como en XE2, pues con ello notará las diferencias. Incluyo en estas pruebas unas con ghRound (función de
GHF) a fin de ofrecerle una alternativa más a nuestro compañero.
Código Delphi
[-]Uses
Math, GHFRTL;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (FloatToStr (RoundTo (1.235, -2)));
ShowMessage (FloatToStr (RoundTo (-1.235, -2)));
ShowMessage (FloatToStr (RoundTo (5.265, -2)));
ShowMessage (FloatToStr (RoundTo (-5.265, -2)));
ShowMessage (FloatToStr (SimpleRoundTo (1.235, -2)));
ShowMessage (FloatToStr (SimpleRoundTo (-1.235, -2)));
ShowMessage (FloatToStr (SimpleRoundTo (5.265, -2)));
ShowMessage (FloatToStr (SimpleRoundTo (-5.265, -2)));
GHMidpointRounding := ghmrInfinity;
ShowMessage (FloatToStr (ghRound (1.235, 2)));
ShowMessage (FloatToStr (ghRound (-1.235, 2)));
ShowMessage (FloatToStr (ghRound (5.265, 2)));
ShowMessage (FloatToStr (ghRound (-5.265, 2)));
end;
Finalmente, creo que vale la pena echar un vistazo a este par de antiguos hilos (tan antiguos como el proceso de pulimento de mi carácter
):
http://www.clubdelphi.com/foros/show...573#post170573
http://www.clubdelphi.com/foros/showthread.php?t=38102
Un saludo.
Al González.