Problema Al Recorrer Tabla

[ecfisa]

Hola.

Podrías hacer la siguiente prueba, anulando la línea del condicional.:

Código Delphi [-]
  while not (frmTablas.tblSucursal.Eof) do
  begin
    nuevoItem.id := frmTablas.tblSucursal.FieldValues['cod_sucursal'] ;
    nuevoItem.Descripcion:=frmTablas.tblSucursal.FieldValues['descripcion_sucursal'];
   // if ValidarSucursales(nuevoItem.id,codigo) = 1 then
       cmbSucursal.Items.AddObject(nuevoItem.Descripcion, nuevoItem);
    frmTablas.tblSucursal.Next;
  end;

Si los datos de la tabla están correctos deberían cargarse todos los items en el combo e indicaría que no carga más items por no cumplirse la condición en ValidarSucursales.

De repetirse el problema, habría que revisar los valores de la tabla.

Saludos.