Hola a todos, tengan un buen día, Dios les bendiga.
Estuve tratando de extraer la parte entera de un numero flotante y no encontré la manera, creí que iba a encontrar una función que lo hiciera y buscando en el foro me encontré el siguiente hilo:
Conversion de tipos, donde veo que uno de los foristas escribe lo siguiente:
Cita:
|
Pascal hace muchas veces la conversión automática de tipos, pero no en el caso de un número de coma floatante a un entero.
|
Lo que entendí con esa oración es que delphi no tiene una función que extraiga la parte entera de un numero flotante, me equivoco?
Por si acaso me di a la tarea de realizar esta función, aqui la tienen, por si es de utilidad para alguien:
Código Delphi
[-]function floaent(aux: float): integer; stdcall;
var
aux1, aux2: string;
i: integer;
begin
i := 1;
aux1 := floattostr(aux);
aux2 := '';
while (aux1[i] <> '.') and (i <= length(aux1)) do
begin
aux2 := aux2 + aux1[i];
inc(i);
end;
floaent := strtoint(aux2);
end;
Esta fución recibe un numero flotante y regresa la parte entera del mismo.
__________________
"Sé de tal manera y vive una vida tal, que si todos los hombres fueran como tú y vivieran como tú, nuestro mundo sería un paraíso terrenal"
Siempre hazlo con la ayuda de Dios