Hola
Perdon pero no me sale el codigo legible en esto, lo intento de nuevo:
Código Delphi
[-]
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ADOTable1.Filtered := False;
Filtro := 'Id_Emp Like '+Edit1.Text;
ADOTable1.Filter := Filtro;
ADOTable1.Filtered := True
end
else
ADOTable1.Filtered := False;
end;