Problemas con funcion RoundTo

[vick]

Hola

Hace algunos días, envie un hilo preguntando acerca de como redondear en Delphi5 1182.526897 a 1182.5269 por poner un ejemplo, es decir redondear a 4 decimasles, y alguien muy amable (lo agradezco) me puso que utilizara la función RoundTo (RoundTo(Valor,-3)), agregando la librería Math en el Uses, pero al hacerlo, me muestra qel error identificador desconocido (la función roundto), alguien sabe cómo remediarlo o alguna otra forma de hacerlo?

De antemano Gracias... y hasta luego.

[Sotrono]

En la ayuda de Delphi 5 no figura la funcion RoundTo, asi que supongo que no la soporta.
Esta funcion de Trucomania seguramente te sirva:

Código Delphi [-]
function Redondear(Valor: Real; Redondeo: Integer):Real;
begin 
  Redondear := Round(Valor * Power(10, Redondeo)) / Power(10,Redondeo);
end;

Bytes...

[dec]

Hola,

Aunque no estoy muy seguro tal vez pudieras usar la función "FormatFloat", tal que así:

Código Delphi [-]
 FormatFloat('0.0000', 1182.526897);