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

[Darkseratul]

hola amigos del club, tengo un problema que mas o menos va así
tengo un adoconection, adotable, y un datasurce todo esto es ta muy bien
tengo un edit que en su evento onchange tengo el siguiente código (ejemplo encontrado aquí mismo)

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

la búsqueda funciona muy bien al ingresar una letra de inmediato me muestra los registros resultantes .......

el problema es que cuando borro todas las letras (vació el edit)

El DBGrid queda vació como le hago para que cuando el edit este vació mede de nuevo todos los registros en el DBGrid

Espero que alguien me puedo contestar y muchas gracias por su tiempo

[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]

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...

[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