FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problema manejando datos =(
tengo un problema, quiero saber como puedo restringir que en un tedit.text pueda yo solo escribir numeros y no letras ya que en mi tabla tiene que llenarse por numeros (campo numerico y moneda).
de igual forma como hago que si enuna tabla tengo un campo en formato memo sea visto en un dbgrid |
#2
|
||||
|
||||
Un TEdit lmitado para entrar números
Pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números: Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ( StrScan('0123456789.-',Key) <> nil ) or ( Key = Char(VK_BACK) ) then { BackSpace Key } begin {Aqui tu tratamiento normal del evento} {Here the normal event treatment} end else Key := #0; end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Una forma muy parecida a la de marcoszorrila pero que me parece un poquito más clara:
Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key in ['0'..'9', '.', '-', Char(VK_BACK)] then begin { Tratamiento normal del evento } end else Key := #0; end; |
#4
|
||||
|
||||
Tambien puedes utilizar los componentes TCurrencyEdit y trabajar con su propiedad DisplayFormat del modo ,0.00 ;-,0.00, de esta forma sólo te admitira números positivos o negativos con dos decimales.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí. |
#5
|
|||
|
|||
Cita:
|
|
|
|