Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Escribir numeros (https://www.clubdelphi.com/foros/showthread.php?t=1653)

mosorio 23-06-2003 11:04:17

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

marcoszorrilla 23-06-2003 15:48:14

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;

Un Saludo.


La franja horaria es GMT +2. Ahora son las 19:14:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi