Hola
El problema es que si contiene algo el edit, pero no se activa ningun check dara error ya que el comienzo y fin siempre termina con la activacion del filtro.
Me parece que la idea es buena, solo que por que no completar el codigo, ser mas especificos:
Código Delphi
[-]procedure TForm5.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered := False;
if (Edit1.Text <> '') then
begin
if CheckBox1.Checked then
begin
ADOTable1.Filter := 'mitabla Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else if CheckBox2.Checked then
begin
ADOTable1.Filter := 'mitabla2 Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else if CheckBox3.Checked then
begin
ADOTable1.Filter := 'mitabla3 Like ''' + Edit1.Text + '*''';
ADOTable1.Filtered := True
end
else
ADOTable1.Filtered := False;
end;
end;
end;
Saludos