Asunto: Quitar decimales a número Float con Delphi
¿Cómo puedo quitar los decimales a un número de tipo Float con Delphi? quiero convertirlo en string (cadena de texto) quitándole los decimales que tenga. Por ejemplo, tengo esto:
Lo que quiero es que en "txtAniosPasados" no se muestren los posibles decimales que devuelva la división.
Publicado:
Mar Dic 20, 2011 9:49 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Quitar decimales a número Float con Delphi
Anuncios
varios escribió:
¿Cómo puedo quitar los decimales a un número de tipo Float con Delphi? quiero convertirlo en string (cadena de texto) quitándole los decimales que tenga. Por ejemplo, tengo esto:
Lo que quiero es que en "txtAniosPasados" no se muestren los posibles decimales que devuelva la división.
Existen multitud de posibilidades para quitar decimales, puedes hacerlo con una función programada por ti mismo, por ejemplo extrayendo la parte entera y la decimal buscando la coma separadora de decimales:
if Length(numeroParteDecimal) > numeroDecimales then
numeroParteDecimal := Copy(numeroParteDecimal, 1, numeroDecimales);
if numeroDecimales = 0 then
Result := StrToFloat (numeroParteEntera)
else
Result := StrToFloat (numeroParteEntera + ',' + numeroParteDecimal);
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A