Unsopported operation en combobox

[giulichajari]

Hola amigos, tengo un combobox y un edit en un form junto a un dbgrid. Tengo varios items en el combobox y la idea es que al seleccionar un item, se filtre por lo que se vaya escribiendo en el edit, pero segun el criterio seleccionado en el combobox

Y obtengo el error unsopported operation.

El codigo:

Código Delphi [-]
procedure TForm2.ComboBox1Change(Sender: TObject);
var
titular:string;
i:integer;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
    begin

      with qcheques do
        begin
          Open;
          Filter:='titular like '''+QuotedStr(Edit4.Text)+'''*''';
          Filtered:=True;
          DBGrid1.DataSource.DataSet.Refresh;
        end;
    end
    else
    begin
      qcheques.Filtered:=False;
    end;

end;

Esta en el evento onchange del combo, agradezco su ayuda.

[giulichajari]

Bueno cambie de lugar el codigo lo coloque en el evento onchange del edit.
Ahora funciona, pero gracias igual.

Código Delphi [-]
procedure TForm2.Edit4Change(Sender: TObject);
var
titular:string;
i:integer;
fecha:string;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
    begin

      with qcheques do
        begin
          Open;
          Filter:='titular Like''' + (Edit4.Text)+ '*''';
          Filtered:=True;
          DBGrid1.DataSource.DataSet.Refresh;
        end;
    end
    else
    if (i=1) then
      begin
          with qcheques do
            begin
              Open;

              Filter:='nombreyape like '''+Edit4.Text+'*''';
              Filtered:=True;
              DBGrid1.DataSource.DataSet.Refresh;
            end;
      end
    else
    begin
      qcheques.Filtered:=False;
    end;
end;

[jafera]

Hola.

Yo tambien uso bastante un método parecido y efectivamente, seleccionas del combo un campo X pero el valor de este campo X lo tienes que filtrar en el OnChange del Edit sobre el que vas escribiendo.

El filtro like me gusta mucho ya que si me acuerdo de un trozo de la cadena a buscar que no sea precisamente el inicio ayuda mucho.

Saludos.

Josep