hacer filtro

[[enecumene]]

Solo debes hacer esto:

Código Delphi [-]
procedure TFbusart.Edit1Change(Sender: TObject);
Var Filtro : string;
begin
if (edit1.Text <> '') then
begin
  ATArticulos.Filtered := false;
  if cbfiltro.Text = 'codigo' then begin
        filtro := 'cveart like '''+edit1.Text + '*''';
        ATArticulos.Filter := Filtro;
       ATArticulos.Filtered := True;
      end;
  if cbfiltro.Text = 'Descripcion' then begin
        filtro := 'descripcion like '''+ edit1.Text + '*''';
       ATArticulos.Filter := Filtro; 
       ATArticulos.Filtered := True;
      end;
  if cbfiltro.Text = 'Linea' then begin
       filtro := 'linea like '''+ edit1.Text+ '*''';
      ATArticulos.Filter := Filtro;
      ATArticulos.Filtered := True;
     end;
  end
  else ATArticulos.Filtered := false;
Close;
end;

Saludos.