Foros Club Delphi - realizar busqueda en paradox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - realizar busqueda en paradox (https://www.clubdelphi.com/foros/showthread.php?t=1260)

realizar busqueda en paradox

hola, tengo que realizar una busqueda en una tabla paradox, la busqueda tiene que ser que me muestre todas las palabra que por ejemplo tengan la silaba pa como zapato, patata... tengo hecha esa busqueda mediante sql pero necesito que sea mediante un table.filter, he probado a poner table1.filter:='dondemirar=' + QuotedStr(*Edit1.Text*); pero me da error, sabeis de alguna forma?

Supongo que habrás puesto

Código:

table1.filter:='dondemirar=' + QuotedStr('*' + Edit1.Text + '*');

O ese fue tu error!

Saludos!

pues probe la que me pusiste y al filtar no me muestra nada

Que yo sepa Paradox no acepta filtros del tipo contiene, solamene comienza por.

Por lo tanto tendrás que utilizar el evento FilterRecord del Dataset, en este ejemplo utilizamos un edit, para escribir el filtro parcial que queremos y luego mediante un botón accionamos:

MiTabla.Filtered:=True;

Entonces se ejecuta el código al efecto que sigue:

Código:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;

  var Accept: Boolean);

var

  sp, ss: ShortString;

begin



  with DataSet do

  begin

  //En el Tedit escribimos la cadena a filtrar

    sp :=EdMifiltro.Text;  {TEdit Contiene la subcadea a filtrar}



    ss:= AnsiUpperCase(FieldByName('Codigo').asString);

    Accept := Pos(sp, ss) > 0;

  end;

end;

Un Saludo.