Busqueda en un Query

[Alejandrina]

HOLA A TODOS...
ESTOY INTENTANDO HACER LO MISMO PERO ME MUESTRA UN ERRO DE 'FILTER EXPRESSION INCORRETLY TERMINATED'...
TENGO EL TDBGRID CON UN DATASOURCE APUNTADO A UN QUERY Y PRETENDO QUE CUANDO EL USUARIO DIGITE EL UN EDIT MUESTRE SOLO EL REGISTRO QUE ESTE DESEA...LO INTENTE DE LAS FORMAS ANTERIORES PERO NO ME DA...
QUE PUEDO ESTAR HACIENDO MAL?

procedure TFrmProgTallerEntrega.EdBusquedaEspecificaKeyPress(
  Sender: TObject; var Key: Char);
begin
 if key = #13 then
    begin
      key := #0;
      DMinformes.QInfHistoricos.Filter:='CODMOLDE'+QuotedStr(EdBusquedaEspecifica.Text+'%');
      DMinformes.QInfHistoricos.Filtered:=TRUE;
    end;
end;

DE ANTE MANO GRACIAS POR LA AYUDA

[[fjcg02]]

En un filtro no puedes meter un metacaracter ( % o * ) ya que no funciona como el like.

Saludos

[jhonny]

Primero que todo, te pido el favor de que no escribas en mayúsculas, pues la verdad es que no esta bien visto que lo hagas ya que representa un grito y además las mayúsculas a mi modo de ver y al de algunos cuantos son engorrosas de leer, asi que te agradecería si editaras tu mensaje...
En cuanto a tu duda, pues... seguramente es porque te falta un signo igual ( = ), trata con el siguiente codigo y nos cuentas:

Código Delphi [-]
 
procedure TFrmProgTallerEntrega.EdBusquedaEspecificaKeyPress(
  Sender: TObject; var Key: Char);
begin
 if key = #13 then
    begin
      key := #0;
      DMinformes.QInfHistoricos.Filtered:=False;
      DMinformes.QInfHistoricos.Filter:='CODMOLDE='+QuotedStr(EdBusquedaEspecifica.Text+'%');
      DMinformes.QInfHistoricos.Filtered:=True;
    end;
end;

[[eduarcol]]

No se si la sugerencia de jhonny funciono, pero yo acostumbraba hacerla de esta manera

Código Delphi [-]
clientes.filter:= 'clinom >=' +Quotedstr(edit1.text+'aaa') and clinom <=' +Quotedstr(edit1.text+'zzz')
clientes.filtered:=true;

[jhonny]

Bueno, eduarcol, esa forma de hacerlo si que debe funcionar, pero solo con tres pequeños carácteres de mas ... asi:

Código Delphi [-]
 
clientes.filter:= 'clinom >=' +Quotedstr(edit1.text+'aaa') + 'and clinom <=' + Quotedstr(edit1.text+'zzz');
clientes.filtered:=true;

//Edito: Descubri que ademas de la comilla simple, falta un + y un punto y coma...

[Alejandrina]

Hola pido disculpas por lo de las mayúsculas nunca lo vi así pero lo tendre en cuenta gracias...
Bueno lo hice de ambas formas y ahora me saca un erro de 'Operation not aplicable'...????

      DMinformes.QInfHistoricos.filter:= 'CODMOLDE >=' +Quotedstr(EdBusquedaEspecifica.text+'aaa') + 'and CODMOLDE <=' + Quotedstr(EdBusquedaEspecifica.text+'zzz');
      DMinformes.QInfHistoricos.filtered:=true;

[jhonny]

Si le colocas otros dos paréntesis?:

Código Delphi [-]
 
DMinformes.QInfHistoricos.filter:= '(CODMOLDE >=' +Quotedstr(EdBusquedaEspecifica.text+'aaa') + 'and CODMOLDE <=' + Quotedstr(EdBusquedaEspecifica.text+'zzz)');
DMinformes.QInfHistoricos.filtered:=true;

[jhonny]

Y si no, otros 4 mas?

Código Delphi [-]
 
DMinformes.QInfHistoricos.filter:= '((CODMOLDE >=' +Quotedstr(EdBusquedaEspecifica.text+'aaa)') + 'and (CODMOLDE <=' + Quotedstr(EdBusquedaEspecifica.text+'zzz))');
DMinformes.QInfHistoricos.filtered:=true;

[Alejandrina]

Gracias...pero ni con dos ni con cuatro me saca error ' ')' expected but nothing found'...lo cual no tiene sentido o si?

      DMinformes.QInfHistoricos.filter:='(CODMOLDE >='+Quotedstr(EdBusquedaEspecifica.text+'aaa')+'and CODMOLDE<='+Quotedstr(EdBusquedaEspecifica.text+'zzz)');
      DMinformes.QInfHistoricos.filtered:=true;

Gracias...