Buenos días.
Mi problema es que al recorrer una tabla (con un while) luego de leer el segundo registro no avanza más y a partir de ahi los valores que obtiene son siempre los mismos..
Este es el código:
Código Delphi
[-]
while not (frmTablas.tblSucursal.Eof) do
begin
nuevoItem.id := frmTablas.tblSucursal.FieldValues['cod_sucursal'] ;
nuevoItem.Descripcion:=frmTablas.tblSucursal.FieldValues['descripcion_sucursal'];
bandera := ValidarSucursales(nuevoItem.id,codigo);
if bandera = 1 then
begin
cmbSucursal.Items.AddObject(nuevoItem.Descripcion, nuevoItem) ;
end;
frmTablas.tblSucursal.Next;
end;
Ejemplo: Al entrar al ciclo, nuevoItem.id toma el valor 1. Luevo del frmTablas.tblSucursal.Next el valor 2 y hasta ahi está bien; pero a partir de ahi el siguiente valor sigue siendo 2 y entra en un bucle del cual no sale..Lo mismo sucede si en vez del while... uso un
for i:=0 to frmTablas.tblSucursal.RecordCount-1..en este caso no entra en un bucle pero después de la segunda lectura todas las lecturas dan lo mismo, cuando en la base de datos son diferentes.
Alguien me podría ayudar ya que no encuentro el error..Muchas gracias..