Filtrar teléfono con Mask Edit

[silver07]

Hola a todos, estoy tratando de filtrar el campo teléfono por el componente Mask Edit pero me da un error:

Project Sisconem.exe raised exception class EOleexception with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Precess stopped. Use or Run to continue.

Este es el código:

Código Delphi [-]
Dmodulo.tblContactos.Filtered := False;
 Dmodulo.tblContactos.Filter := 'telefono1 like '+MEditTel.Text+'%';
 Dmodulo.tblContactos.Filtered := True;

Pero no me funciona, alguien podría darme una mano por favor.

[pcicom]

Prueba ASI..

Código Delphi [-]
Dmodulo.tblContactos.Filtered := False;
 Dmodulo.tblContactos.Filter := 'telefono1 like '+QuotedStr(MEditTel.Text+'%');
 Dmodulo.tblContactos.Filtered := True;

[[Lepe]]

que yo sepa, la propiedad filter no permite el uso de comodines en la búsqueda.... aunque puedo equivocarme, ya que no sé en qué base de datos trabajas ni demás; por defecto el TTable de delphi no puede, tienes que usar una consulta (TQuery busca en el foro).

Saludos

[*Caro*]

Empezado por Lepe

que yo sepa, la propiedad filter no permite el uso de comodines en la búsqueda.... aunque puedo equivocarme, ya que no sé en qué base de datos trabajas ni demás; por defecto el TTable de delphi no puede, tienes que usar una consulta (TQuery busca en el foro).

Hola Lepe, hace tiempo hice pruebas sobre like y los comodines en el Filter del Table y si funciona, el unico problema que veo es cuando se envía vacío donde debería mostrarte todos los registros, en este caso te da el error que ha puesto silver07, pero también sale ese error si no se le pone comillas aunque sea campo Integer se le debe poner las comillas.

Código Delphi [-]
 Dmodulo.tblContactos.Filtered := False;
 if MEditTel.Text='' then
  Dmodulo.tblContactos.Filter := ''
 else
  Dmodulo.tblContactos.Filter := 'telefono1 like '+QuotedStr(MEditTel.Text+'%');
 Dmodulo.tblContactos.Filtered := True;

Saluditos