Filtrar datos en una tabla paradox

[Niko]

Hola a Todos:

Me explico. Tengo una tabla paradox 7 mostrada en un DBGrid y un Edit en el que quiero que según se vaya escribiendo se vayan filtrando los datos en la tabla y se muestren el el DBGrid.

Es decir, si voy a escribir 'Antonio', que en cuanto escriba la 'A', en el DBGrid salgan los registros que empiecen por 'A', en cuanto ponga la letra siguiente, 'N' salgan solo los registros que empiecen por 'AN', y así sucesivamente, y cuando borre lo escrito en el Edit se quite el filtro y se vuelvan a mostrar todos los registros.

Esto es posible en una tabla paradox?

Muchas Gracias de Antemano.
Att. Jorge.

[vtdeleon]

Saludos

Has una busqueda por el foro, no hace mucho tiempo se trato de lo mismo.
Si no mal recuerdo la solucion fue la sigt:

Código Delphi [-]
table1.filter:='campo like '+QuotedStr('%'+edit1.text+'%');

[vtdeleon]

Encontre el enlace, da la casualidad de que tienen similares titulos

[Niko]

Hola de Nuevo:

He probado a poner esto:

Table1.Filter:='Concepto like '+QuotedStr('%'+Edit1.text+'%');
Table1.Filtered:= True;

En los eventos OnKeyPress y luego en OnChange del Edit1 y me sale el siguiente error cuando pulso cualquier tecla estando el foco en este Edit:

Operation Not applicable.

Que puedo hacer??

Muchas Thank`s.
Att. Jorge

[Niko]

Aclaro que compilar, compila perfectamente pero al pulsar cualquier tecla en ese edit sale el error: Operation Not Applicable.

A lo mejor hay que cerrar la tabla antes de hacer la búsqueda o no sé.

Alguien me puede hechar una manilla?? He probado todos los ejemplos que salen en el hilo del link que me has puesto y en todos sale este error. Recuerdo que yo necesito filtrar la tabla mientras se escribe en el edit.

Muchas Thank`s.
Salu2.

[vtdeleon]

Saludos

Hice una prueba, intenta esto:

Código Delphi [-]
Table1.Filter:='Concepto= '+QuotedStr('*'+Edit1.text+'*');
Table1.Filtered:= True;

[Niko]

Hola otra vez:

Con ese codigo no da ningún error. Pero por el contrario no filtra nada. Tengo 7 entradas que empiezan por 'D' y al poner en el Edit: 'D', en el DBGrid desaparecen todas las entradas y se queda en blanco.

Agradezco mucho tu ayuda. Espero me puedas responder.

Salu2

[vtdeleon]

Saludos

Como solo quieres que empiense por X's caracteres, quita el 1er asterisco.

Nt: En modo de dise~o puedes ir probando, intentalo.

[Niko]

Hola:

Muchas Gracias, ahora si sale.

Pero , ahora el problema es que cuando dejo el edit en blanco, no sale nada, y lo que quiero es que si el Edit esta en blanco lo vuelva a mostrar todo. (El codigo lo he puesto en el evento OnChange del Edit).

De todas maneras si esto es muy dificil pongo un boton que quite el filtro y listo, aunque me gustaría que se pudiera hacer así.

Saludos.

--------------------------

P.D: Creo que puede quedar solucionado poniendo en el evento OnKeyPress del Edit:

If Edit2.Text = '' Then
Table1.Filtered:= False;

Asi si se borra, ya se esta pulsando la tecla BackSpace y si el edit detecta que no hay texto se quita el filtro de la tabla.

Saludos.

[vtdeleon]

Puedes poner una condicion que evalue si el edit tiene o no texto, si no tiene pones el filter false y listo

[Niko]

Hola:

Muchas gracias por tu ayuda, ya esta solucionado. ERES UN MAQUINA!!