Solo letras y numeros en edit

[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

[fidel]

Con Round poniendo los decimales que quieres.
Con FormatFloat te formatea también los miles si quieres
FormatFloat('##,####,##0.00', valor);
puedes añadir un literal de lo que es
FormatFloat('##,####,##0.00 metros', valor);