Ver Mensaje Individual
  #10  
Antiguo 10-11-2008
Lizette Lizette is offline
Miembro
 
Registrado: jun 2008
Posts: 98
Reputación: 19
Lizette Va por buen camino
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;
Responder Con Cita