Parte entera y decimal

[tcp_ip_es]

podría ser algo asi....

Código Delphi [-]


//CadenaFloat, ParteEntera y ParteDecimal son de tipo string 

CadenaFloat:= floattostr(Tuvariablefloat); 
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat));

Luego si quieres puedes pasar las variables ParteEntera y ParteDecimal a tipo string con la funcion strtoint.

Espero que te sirva... Saludos, Tony