ComboBox Seleccion de Items

[Marwuinh]

Saludos a todos tengo una consulta:

resulta que al iniciar el formulario yo cargo datos de una tabla a un ComboBox y funciona perfectamente ahora:

aplico el siguiente codigo para saber cuando el usuario selecciona un Items en particular

Si la tabla llamada "tClientes" posee datos sobre la seleccion que se hace sobre el ComboBox llamado "cdNumCen" los filtro e indico cuantos registros son

cuando ejecuto la aplicacion funciona la primera vez y luego no funciona, ni siquiera entra en la condicion planteada, ya que sale el mensaje que esta luego del else

Código Delphi [-]

procedure TUnoDiez.cbNumCenChange(Sender: TObject);
begin

if tClientes.Locate('CV_CLI',cbNumCen.text,[]) then
begin
       tClientes.Filtered := false;
       tClientes.Filter:='CV_CLI='+cbNumCen.text;
       tClientes.Filtered := true;
       lNumVotCV.Caption:='Hay '+inttostr(tClientes.RecordCount)+' Votantes';

end
else
        showmessage('No hay Campos Registrados);
end;

[*Caro*]

Hola Marwuinh, así como esta tu codigo debría funcionarte, puedes hacer pruebas y mostrar lo que esta recibiendo del ComboBox.Text, y también probar con la opción loCaseInsensitive del Locate, ademas lo que tengas en cbNumCen.text, tendría que existir en tu campo CV_CLI de tu tabla clientes.

Código Delphi [-]
 
begin
 showmessage(cbNumCen.text);
 if tClientes.Locate('CV_CLI',cbNumCen.text,[loCaseInsensitive]) then
  begin
  ......................
end;

Saluditos

[Marwuinh]

Muchas Gracias por tu ayuda, opte por no usar el Locate y me funciono:

Quedo asi:

Código Delphi [-]

procedure TUnoDiez.cbNumCenChange(Sender: TObject);
begin
       tClientes.Filtered := false;
       tClientes.Filter:='CV_CLI='+QuotedStr(cbNumCen.text);
       tClientes.Filtered := true;
       lNumVotCV.Caption:='Hay '+inttostr(tClientes.RecordCount)+' Votantes';
end;