Ver Mensaje Individual
  #1  
Antiguo 27-01-2009
radge radge is offline
Miembro
 
Registrado: may 2008
Posts: 147
Reputación: 17
radge Va por buen camino
No consigo hacer funcionar este bucle.

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;
Responder Con Cita