Ver Mensaje Individual
  #1  
Antiguo 16-09-2004
acrophet acrophet is offline
Miembro
 
Registrado: sep 2003
Posts: 175
Reputación: 21
acrophet Va por buen camino
problema con bucle while do

Hola a todos.
Vereis, tengo un bucle while..do tal que asi
Código Delphi [-]
While vHora < HoraFin1 do   //bucle que va rellenando la tabla temporal
            begin                  //con las horas libres
               vHoraStr:=TimeToStr(Horafin1);
               vHoraStr:=Copy(vHoraStr,1,Length(vHoraStr)-3);//borramos los segundos
                if length(vhorastr)<5 then vhorastr:=' '+vhorastr; //metemos un espacio a la hora(cosas mias)
                if tabm.Locate('HORA',vhorastr,[])=true then  //si la esa hora esta dada, saltamos
                  begin
                    horafin1:=horafin1-intervalo;
                    continue;
                  end else
                tabm.Insert;
                tabm.FieldByName('HORA').AsString:=vhorastr; //metemos la hora libre
                tabm.Post;
                horafin1:=horafin1-intervalo; //actualizamos contador
                tabm.First;
              end;

Basicamente lo que hace es que busca una hora(horafin1) en una tabla(tabm), si la encuentra, salta a la siguiente hora, y sino la encuentra, la añade. Esto lo que hace es que me genera un listado con horas desde una hora hasta otra hora dependiendo del intervalo(por ej, de 8:00 a 14:00 con 15 min de intervalo, 8:00-8:15-8:30,etc).
Pues bien, la cosa es que me funciona CASI bien. cuando el intervalo es de 8:00 a 14:00 por ej (aqui es donde entra el While vHora < HoraFin1 do , vhora es la hora inicial y horafin1 la final)cuando llega a la ultima vuelta osea que vhora=horafin1, entra en el bucle una ultima vez y luego salta.
Pero si en cambio es de 8:00 a 13:00 cuando llega a la ultima vuelta cuando vhora=horafin, NO entra en el bucle esa ultima vez.
usando los breakpoints y mirando el valor de las variables, en los dos casos es el mismo valor.
Ahora viene mi duda, un bucle while do, cuando tiene que salir del mismo si le pongo el while vhora<horafin1. Cuando es igual o cuando es mayor?
Y porque siendo en los dos casos que apunte antes, el mismo valor, actua de una manera o de otra? Yo pienso que igual me esta redondeando el valor de las variables y por eso segun uno u otro, me sale la cosa diferente. Que puedo hacer en este caso?

Espero que no me haya hecho la picha un lio intentando explicar mis dudas y que alguien me haya entendido.

Un saludo y muchas gracias.
Responder Con Cita