Solo letras y numeros en edit

[migueweb]

Solo me falta arreglar algo en el programita que hice, necesito saber como yo puedo quitar en el promedio de edad todo lo que hay después de la coma es decir en ocaciones me queda el promedio de edad 35,66667, yo quiero que solo me quede 35 o que me redondee a 36, es esto posible

[fidel]

Mira en la ayuda
Fix
Round
FormatFloat
y utiliza la que te interese

[ecfisa]

Hola migueweb.

Esta función que utiliza Round,

Código Delphi [-]
function Redondea(Num: Double; NDec:Byte): Double;
begin
  Result:= Round(Num * Exp(ln(10)*NDec)) / Exp(ln(10)*NDec);
end;

te devuelve el número real con la cantidad de cifras decimales que le indiques en el parámetro NDec.

Saludos.

[ecfisa]

Hola de nuevo.

Me acordé que si no sos partidario del fundamentalismo, podes usar la función SimpleRoundTo, pero debes incluir la unit Math.

Saludos.

[migueweb]

Después de mucho trabajo, pude ver la ayuda de delphi 7 porque tengo Seven instalado y no me abria la ayuda y no logro saber como funciona todo lo que me han dicho que pruebe, ahora les voy a explicar detalladamente que deseo

yo tengo este procedimiento

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit11.Text := FloatToStr((StrToFloat(Edit3.text)+StrToFloat(Edit9.text)+StrToFloat(Edit6.text))/3)
end;

y deseo que el resultado me lo de como un número entero sin decimales, es decir 35, 34, 32 como podría hacerlo.

[ecfisa]

Hola de nuevo.

En tu caso, basta con agregar lo que te pongo en negrita:

   Edit11.Text := FloatToStr(Round((StrToFloat(Edit3.text)+StrToFloat(Edit9.text)+
     StrToFloat(Edit6.text))/3));

Saludos.

[migueweb]

Gracias a los que me han ayudado en la realización de este pequeño proyecto que me ayudaron a hacer

Ahora tengo otra pregunta quiero que este procedimiento

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit10.Text := FloatToStr((StrToFloat(Edit6.Text)+StrToFloat(Edit8.Text)+StrToFloat(Edit9.Text))/3)
end;

Me muestre solo 2 lugares después de la coma(,) es decir 456,25