Redondear numero real en Delphi

Esta es una función para redondear un número real a la cantidad de cifras significativas especificadas al llamar la función, espero les sirva.

function Redondear(numero : real ; cifrasSig : integer) : real;

var

p10 : extended;

begin

{ siendo 2 el caso más frecuente }

if (cifrasSig = 2) then

result := round(numero * 100) / 100

else

begin

p10 := Power(10, cifrasSig);

result := round(numero * p10) / p10;

end;

end;

Blogalaxia Tags: Delphi