Problemas con Redondeos

[[Gunman]]

No entiendo muy bien el problema que planteas, pero por ejemplo, si quieres redondear un numero de coma flotante a su valor más próximo con dos cifras decimales entonces:
Añades la libreria Math a tu programa...

Código Delphi [-]
  uses Math;

...y te creas esta función (por ejemplo)

Código Delphi [-]
 function RedondeoReal(Valor: Real): Real;
 begin
   SetRoundMode(rmNearest);
   Result := RoundTo(Valor, -2);  //RoundTo(ValorARedondear,Cifras decimales (-2) o 0 a añadir (2)
 end;

[AGAG4]

Creo que no has probado Bien el RoundTO, enviale un valor entero cualquiera, con terminación en decimal 5 y no te redondea correctamente hacía arriba:
Te doy el ejemplo:

Código Delphi [-]
....
var
Valor:Real;
begin
....
Valor:=6.225;
edit2.text:=FloatToStr(RoundTo(valor,-2));
//El valor resultante es de 6.22 en vez de ser 6.23

Espero haberme explicado

[jachguate]

Empezado por AGAG4

edit2.text:=FloatToStr(RoundTo(valor,-2));
//El valor resultante es de 6.22 en vez de ser 6.23

El resultado de 6.22 es un valor correcto según las reglas de redondeo

Empezado por AGAG4

Creo que no has probado Bien el RoundTO

Creo que el problema no está en la función en si, sino en el valor que vos esperas que devuelva, puesto que es un valor erroneo.

Hasta luego.