Funcion de Redondeo

[ZiriusB]

Buenas amigos, tengo un pequeño problema y nada mejor que esta comunidad para encontrar una solución, tengo esta formula que encontre en la web para el redondeo de un numero... pero me lanza un error en esta linea:

p10 := Power(10, cifrasSig);

el "Power" me lanza el error "Undeclarated identifier: Power"

esta es la formula completa; espero podais ayudarme!

Código Delphi [-]
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;

[rgstuamigo]

Empezado por ZiriusB

... pero me lanza un error en esta linea:

p10 := Power(10, cifrasSig);

el "Power" me lanza el error "Undeclarated identifier: Power"

...

Ya miraste la ayuda(F1) de Delphi sobre la Función Power?
El error que dices es por que no has agregado al Uses la unidad Math donde se encuentra la funcion Power

Código Delphi [-]
uses ...,Math;//<--agrego la unidad Math 

De todas formas creo que deberías comentar cómo quieres redondear, ya que delphi posee funciones que ya te hacen eso .
Saludos...

[ZiriusB]

Bueno tengo varios combobox con numeros: 1,2,3,4 de ahi no pasan...al sumarlos todos me dan valores como 3,56 porque tengo una funcion que me divide el numero resultante entre el total de combobox...

Lo que quiero es redondear al numero mas cercano...es decir,

si el resultado es 3,78 que se vaya a 4

si el resultado es 3,27 que se vaya a 3

Gracias por tu ayuda, probare lo que me dijiste...

[ZiriusB]

me funciono lo de la uses,

amigo como puedo hacer para que en el boton en donde meda el resultado se redondee de una vez, como puedo utilizar la formula ahi...disculpa mi ignorancia, soy nuevo en delphi!

Gracias por tu ayuda!

[rgstuamigo]

Empezado por ZiriusB

Lo que quiero es redondear al numero mas cercano...es decir,

si el resultado es 3,78 que se vaya a 4

si el resultado es 3,27 que se vaya a 3
...

Pues para eso tienes la funcion "Round" de la Unidad System.
Saludos...

[ZiriusB]

me puedes mostrar por favor como podria utilizarla en mi TEDIT, como dije soy nuevo en delphi...

Disculpa la ignorancia y gracias por tu ayuda!

[rgstuamigo]

Pues usando el evento OnClick de un boton y teniendo un edit para meter los datos pues se puede hacer algo así:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var a : Double;
     b : Int64;
     c : String;
begin
    a:=StrToFloat(Edit1.Text);// Obtengo el valor Float del texto del Edit en mi varible "a"
    b:=Round(a);// Hago el redondeo y obtengo dicho valor en mi varible "b"
    c:=IntToStr(b);// hago la conversión de Entero a String
    ShowMessage(c);//muestro el valor redondeado final
end;

O así tambien(sin usar variables) >

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Round(StrToFloat(Edit1.Text))));
end;

Saludos...