!!Problema de búsqueda en un DBGrid!!

[rgstuamigo]

Supongo que la propiedad Filtered de tu adotable está activa(Filtered=True), entonces debes desactivarla(Filtered=False)
Siguiendo tu ejemplo podriamos hacer que cuando el edit esté vacio no me filtre nada:

Código Delphi [-]
If (Edit1.text <> '') then
 Begin
    DataModule1.ADOcompra.Filter := 'Nombredelconprador Like '''+ Edit1.Text +'*''';
    DataModule1.ADOcompra.Filtered:=True;
 end
Else DataModule1.ADOcompra.Filtered:=False; //<---  

Saludos...

[Darkseratul]

hola que tal gracias por responder tan rapido
he hecho lo que me has dicho pero me sale un error
algo así como

Expected INITIALIZATION but received ELSE

ya he intentado resolverlo pero no he encontrado la sulucion
a ver si me puedes ayudar seria de mucha ayuda para mi
y gracias por tu respuesta, por tu tiempo

[Darkseratul]

solo unos delles como quitarle las ; al end de la exprecion bueno la solución es mas o menos así

para que funcione tienes que quitarle en el adotable la función de Filtered ponerla en false.

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
If (Edit1.text <> '') then
begin
    DataModule1.ADOcompra.Filter := 'Nombredelconprador Like '''+ Edit1.Text +'*''';
    DataModule1.ADOcompra.Filtered:=True;
end // quitarle las ; si no funciona 
Else
begin
DataModule1.ADOcompra.Filtered:=False;
end;
end;

muchas gracias a rgstuamigo sin su ayuda no hubiese podido lograrlo
gracias gracias gracias gracias gracias gracias
saludos rgstuamigo gracias por tu tiempo

[rgstuamigo]

Empezado por Darkseratul

solo unos delles como quitarle las ; al end

En efecto..... nunca debe haber un punto y coma ( ; ) antes de un Else en Delphi ojo con eso , por eso debes fijarte bien el código que te puse...
Saludos... y me alegra que lo hayas solucionado, de los errores uno aprende

[rgstuamigo]

Bueno.. me parece raro ese error.....pareciera que algo has hecho mal ; de todas formas como digiste que ese código está dentro del evento OnChange de edit pues aquí te paso el código completo de cómo debería estar en tal evento más o menos:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
    if Edit1.Text <> '' then
     begin
      DataModule1.ADOcompra.Filter:='Nombredelconprador Like '''+ Edit1.Text +'*''';
      DataModule1.ADOcompra.Filtered:=True;
     end
    else DataModule1.ADOcompra.Filtered:=False;
end;

Saludos...