Filtrar datos en una lista

[*Caro*]

Hola Lizzete, supongo que tu filtrado lo haces en el evento OnChange de tu Edit, para el enter es solo usar el evento OnKeyPress de ese mismo edit.

Código Delphi [-]
procedure TForm1.EditFiltroKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   Edit1.Text := Query.fieldbyname('campo1').asstring;
   Edit2.Text := Query.fieldbyname('campo2').asstring;
   ...........
  end;
end;

Saluditos

[Lizette]

Hola gracias Caro,, tengo otro pequeño problema, cuando estoy filtrando los datos y pongo en el edit "li" me despliega los nombres con esas incidencias, si tengo "rererere" y pongo toda la palabra me la acepta, pero tengo un registro "lizette", si pongo "li" lo acepta y me filtra pero si pongo "liz" no me da nada en el dbgrid, siendo que si tengo un registro con "lizette"..

Aqui anexo el codigo:

Código Delphi [-]
Var
Valor,Valor1 : String;
begin
 if EditNom.Text<>EditVacio.Text then
  begin
 Valor := EditNom.Text;
 Valor1 := Valor;
 inc(Valor1[length(Valor1)]);
 if(ADOtblPaciente.Locate('NombreC', EditNom.Text,[loPartialKey,loCaseInsensitive]))then
 begin
 ADOtblPaciente.Filter := 'NombreC >= '+QuotedStr(Valor)+ ' and NombreC < ' +QuotedStr(Valor1);
 ADOtblPaciente.Filtered := true;
 end
 else
  begin
   Application.MessageBox('El paciente/cliente buscando no se encuentra registrado','No encontrado',Mb_IconWarning);
   EditNom.Text:=EditVacio.Text;
   EditNom.SetFocus;
  end;
 end;
 if EditNom.Text=EditVacio.Text then
  begin
   ADOtblPaciente.Filtered:=False;
  end;

[Lizette]

Se me paso comentar:

Que si voy borro letra por letra el edit una vez teniendo "liz", borro la "z" me causa error y me saca del programa.

Gracias

[*Caro*]

Estas mezclando varias cosas amiguita, no esta bien que lo hagas así, habria sido mejor que utilizaras un AdoQuery e hicieras la consulta, pero si quieres hacerlo con Filter, debes utilizar también "Like", el Inc esta demas y el Locate también. Tu codigo quedaría así:

Código Delphi [-]
Var
 Valor : String;
begin
  ADOtblPaciente.Filtered:=False;
  if EditNom.Text<>EditVacio.Text then
   begin
    Valor := EditNom.Text;
    ADOtblPaciente.Filter := 'NombreC like '+QuotedStr(Valor+'%');
    ADOtblPaciente.Filtered := true;
   end
  else
   begin
    Application.MessageBox('El paciente/cliente buscando no se encuentra registrado','No encontrado',Mb_IconWarning);
    EditNom.Text:=EditVacio.Text;
    EditNom.SetFocus;
   end;

Nota.- Si te da algún error en tu codigo, debes indicarnos siempre el error exacto que te esta dando para poder ayudarte mejor.

Saluditos

[Lizette]

Gracias por tu ayuda Caro, si me funcionó..