Código Delphi [-] procedure TForm1.Edit1Change(Sender: TObject); begin with Banco.ADOQueryProveedor do begin Filtered:= False; Filter := 'DESCRIP LIKE ' + QuotedStr ('%' + Edit1.Text + '%' ); Filtered:= True; end; end;
procedure TForm1.Edit1Change(Sender: TObject); begin with Banco.ADOQueryProveedor do begin Filtered:= False; Filter := 'DESCRIP LIKE ' + QuotedStr ('%' + Edit1.Text + '%' ); Filtered:= True; end; end;