Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-09-2003
CI>140 CI>140 is offline
Miembro
 
Registrado: ago 2003
Ubicación: Boca del Rio Veracruz
Posts: 17
Poder: 0
CI>140 Va por buen camino
Unhappy 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
Responder Con Cita
  #2  
Antiguo 20-09-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
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;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 20-09-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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;
// Saludos
Responder Con Cita
  #4  
Antiguo 22-09-2003
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Poder: 21
Cabanyaler Va por buen camino
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í.
Responder Con Cita
  #5  
Antiguo 22-09-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 25
__cadetill Va por buen camino
Cita:
Posteado originalmente por Cabanyaler
Tambien puedes utilizar los componentes TCurrencyEdit
Sólo aclarar que este componente pertenece a las RX (para que nadie ande loco buscándolo por los componentes estándars de Delphi)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 17:01:36.


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
Copyright 1996-2007 Club Delphi