FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Escribir numeros
Hola compañeros,
Tengo una inquietud y es de cómo puedo hacer que en un componente edit, o similar al escribir un número, si contiene decimales los deje tal cual, es decir si comienzo a escribir un numero y que este alineado a la derecha me los deje como van entrando al componente. EJ si escribo 25 que en realidad al comenzar a escribir con el formato decimal activado sería 0,25 como si fuese una caja registradora. Para mejor explicación si no me he hecho explicar todavia. A medida que valla escribiendo los números, que vallan ocupando las posiciones desde los decimales hasta las unidades, los miles, etc. así: 12.50 o sea que el primer número escrito es el 1 pero si sólo escribiera ese número sería 0.01 si sigo incrementando 0.12, asi hasta llegar al número que deseo 12.50. Esto lo necesito para librarme o librar a los usuarios digitar, escribir o picar el caracter decimal ya sea '.' ó ','. Espero haberme hecho enteder. Gracias |
#2
|
||||
|
||||
Te voy a dar una idea, aunque creo que tendrás que desarrollarla un poco más:
Código:
procedure TForm1.Edit1Exit(Sender: TObject); begin if pos(',',edit1.text) = 0 then Try Edit1.Text:=FormatFloat(',0.00',StrToInt(Edit1.Text) / 100); except end; end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|