No consigo hacer funcionar este bucle.

[radge]

Buenas adjunto este codigo , porque me estoy volviendo loco , como vereis hago un bucle y tengo 2 variables Esfera1 y Esfera2 , pues cuando debugo pongo el breakpoint justamente en el begin , pués de la variables esfera1 salta directamente a ObrirQuery.

No se que puede ser o que hacer.

salu2 radge

Código Delphi [-]
procedure Tfrmoferta1.BitBtn6Click(Sender: TObject);
var
   minuevavar,var1,var2,esfera1,esfera2:integer;
begin
   Esfera1 := 100;
   Esfera2 := 200;

   ObrirQuery('699'); //consulta query

   While not qryCotes.EOF do begin
      var1:= round(qryCotes.FieldByName('campo1').AsFloat * 100);
      var2:= round(qryCotes.FieldByName('campo2').AsFloat * 100);


   ...
   ...
   end;

end;

[[coso]]

Hola radge,

hay a veces, no se porque misteriosa razon, que la informacion de debug no queda actualizada con la compilación: breakpoints invalidos, etc... yo lo soluciono borrando todos los .dcu (u .obj) del proyecto y recompilando todo de cero. A ver si va a ser por eso. Saludos.

[radge]

Gracias por la info lo pruebo ahora mismo y te cuento !

salu2 radge

[radge]

Pues no me hace lo mismo... es rarisimo.

Alguna otra opción ?

salu2 radge

[radge]

Dejo una muestra de la pantalla a ver si con esto ayudo un poco más.



salu2 radge

[roman]

Y, ¿dónde más usas las variables esfera1 y esfera2? Porque si no se usan posteriormente, el compilador elimina esas asignaciones.

// Saludos

[radge]

De hecho es el IF este que las 2 variables tienen el valor -1000 pero todo y asi no entra en el dichoso bucle.



salu2 radge