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;