FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error en busqueda.
Hola preguntaros de que forma puedo hacer lo siguiente,
tengo un form con una serie de DBEdit relacionado con una base de datos en paradox, le he introducido un edit en el cual quiero buscar los numeros de los socios ya que cada socio tiene relacionado un numero, bueno creo que lo hago bien pero tiene una pega y es la siguiente cuando busco un numero inexistente me lo avisa con el showMessage hasta aqui correcto, pero como lo hago para que cuando el Edit no tenga nada o introduzca una letra me vuelva el ShowMessage de introducir solo numeros ya k si no me da error?? este es el codigo que meto en mi form no se si con Try y except se puede por eso os pido ayuda. procedure TForm1.edCodigoKeyPress(Sender:TObject; var key: Char); Begin If Key = #13 Then Begin Table1.First; If Not Table1.Locate('N_CARNET',StrToInt(edCodigo.Text),[])Then ShowMessage('Ese Nº Carnet no existe'); end; Gracias. |
|
|
|