PDA

Ver la Versión Completa : Escribir numeros


mosorio
23-06-2003, 12:04:17
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

marcoszorrilla
23-06-2003, 16:48:14
Te voy a dar una idea, aunque creo que tendrás que desarrollarla un poco más:


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;


Un Saludo.