Busqueda en un Query

[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...

[jhonny]

Ya entiendo, lo que sucedía es que las comillas estaban quedando por fuera de los paréntesis, la cosa debe ser asi:

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

//Edito: Al final estaba mal ubicado un paréntesis.

[[Caral]]

Hola
Perdon que me meta.
Para empezar la sentencia de un filtro es:

Código Delphi [-]
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;

Hay que tener en cuenta que se pide un string, si es numerico el dato la sentencia varia, esto en ciertas bases de datos, suele pasar.
Saludos