Filtrar datos en una lista

[Lizette]

Tengo otra inquietud, no se me hizo muy adecuado, dar enter al edit y dar enter al dbgrid, estoy tratando de que al darle enter al edit, cuando ya tengo en el dbgrid el dato filtrado, me aparezcan los respectivos datos en los edits de ese registro que se encuentra filtrado en la primera posicion del dbgrid.

Le estuve intentando pero siempre me despliega el primer registro que tengo en la tabla.

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