Agregar separador de miles
 

Hola amigos... muchas gracias por su tiempo... espero me puedan ayudar con el siguiente problemita...

Quiero agregar el punto (.), a un numero, que ingredo a un TEdit.

Con el evento OnChange del TEdit, quiero que al ingresar un numero de mas de 3 digitos (osea mayor que mil, 1000), me agregue el separador de miles en tiempo de ejecucion...

estaba utilizando el siiguiente codigo en el evento ONChange del TEdit

Código Delphi [-]
//sedit1.text:=formatfloat('#,',strtoint(sedit1.text));

funciona pero el problema es que se debe ingresar un numero entero, al cual se le agrega el punto... el problema es que despues de agregarsele el punto este ya no es un numero entero valido...

que puedo hacer??

ayuda porfa

gracias

y asi

Código Delphi [-]
sedit1.text:=formatfloat('#,',strtoFloat(sedit1.text));

esta repetido por error

HOLA

la verdad es que no me funciona de la manera que me recomendaste....

solamente me funciona la primera vez que lo transformar.... una vez que ya tiene agregado el punto, no reconoce el el numero como entero, por ejemplo (1.000)

como puedo solucionar el preblema....

saludos

En el evento OnExit del Edit limpialo de todos los caracteres que no sean números.

yo pondría un metodo para leer y escribir en el Edit de modo que la representación y el acceso a el sean independientes, asi lo que conseguiras es que cada vez que desees mostrar o editar el numero lo veas como quieres pero para almacenarlo en la BD si es asi como lo guardas lo conviertas en numero.