Filtrar por contenido en Paradox

[RyAr]

Pues estoy intentado filtar una tabla por el contenido que ponga en un edit normal. Un ejemplo seria que si tengo estos registros:

Jose Luis
Luis
Angel

Y en el Edit1.text pongo Luis, me devolviera la tabla filtrada con:

Jose Luis
Luis

Yo para filtrar utilizo Table1.filter := 'Nombre = ''' + Edit1.text + ''''; pero el caso es que entonces solo em devuelve el registro que coincide extamente, es decir, solo me devuelve Luis, y yo querria que me devolviera los dos: Jose Luis y Luis.

Saludos, y mil gracias a todos

[roman]

Me parece que esto no lo vas a poder hacer. Los filtros son muy limitados. Te convendría más usar un TQuery con una consulta del tipo:

Código SQL [-]
select * from tabla
where nombre like :nombre

Y llenarías el parámetro con

Código Delphi [-]
Query.ParamByName('nombre').AsString := '%' + Edit.Text + '%';

// Saludos

[RyAr]

Buenas, lo rpimero gracias por responder.

He metido en el form un TQuery, y en dataset le he puesto el de la tabla, y en el clik del boton el codigo que me has dado, pero mi duda es donde meto la busqueda SQL??

Gracias

[roman]

Las componentes TQuery son para mandar consultas SQL a la base de datos. Te recomiendo que busques TQuery en la ayuda de Delphi para darte una idea de su funcionamiento.

// Saludos

[RyAr]

Buenas de nuevo, me he estado leyendo un manual del componente y me he hecho una idea de como funciona.

Lo que no he visto es la manera de ejecutar esa consulta, y luego volver a ver toda la tabla. Yo los datos de la tabla la veo sobre un DBGrid.

¿La consulta se ejecuta al pasarle el parametro del dato? ¿Como se "quita la consulta" a la tabla?.

Saludos, y gracias

[__cadetill]

podrías mirar de hacer algo así

Código Delphi [-]
begin
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('select * from tabla');

  if Trim(Edit1.Text) <> '' then
    Query.SQL.Add('where nombre like ' + QuotedStr('%' + Trim(Edit1.Text) + '%') );

  try
    Query.Open;
  except
    on E: Exception do
      Application.MessageBox(PChar('Error abriendo Query. Mensaje:'#13+E.Message),
          'Atención', MB_APPLMODAL or MB_ICONWARNING or MB_OK);
  end;

Espero te sirva