![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#41
|
|||
|
|||
Hola, yo utilizo este codigo:
Var Valor,Valor1 : String; begin if Edit1.text = '' then begin Tabla.Filtered := false; exit; end; Tabla.Locate('campo', edit1.Text,[loPartialKey,loCaseInsensitive]); valor := Edit1.text; Valor1 := Valor; inc(valor1[length(Valor1)]); Tabla.Filter := 'campo >= '+QuotedStr(Valor)+ ' and campo < ' +QuotedStr(valor1); Tabla.Filtered := true; end;El problema, es que si tecleo una letra y no tengo ningun registro que coincida me pone en blanco el dbgrid, y quisiera que me diera un mensaje de que no se encontro, y que me borrara dicha letra del edit y me permitiera volver a teclear.. Otra cosa, es que si tecleo la primera letra, y la borro, me causa error, y quisiera que me permitiera dejar el edit en blanco y volver a teclear.. |
#42
|
||||
|
||||
Hola Lizette, me tomé la molestia de colocar tu código con las etiquetas Delphi, por favor úsalos
![]()
Saludos.
__________________
![]() Mi BLOG - ¡Joder, leanse la guia de estilo! Las Palabras son enanas, los ejemplos gigantes. |
![]() |
|
|
![]() |
|