bucle infinito

[emeceuy]

No estoy seguro que sea OnIdle lo que necesito, ya que en realidad justamente no quiero que el programa esté oseoso, el bucle sería la actividad principal, y aunque haya otras actividades ésta debe ser la prioritaria.

Cuando probé con el timer, descubrí que aunque la unidad mínima era 1ms, no variaba de 50ms hacia abajo, por lo cual empíricamente creo que la unidad minima efectiva del timer son 50ms.

Lo que necesito en definitiva es algo así como un bucle "permanente", pero que me permita cambiar un edit, o apretar un boton, si es que se puede... algo similar a como funciona un timer... inclusive podría ser un timer pero que ejecute mucho más rapido que el timer comun, o sea, algunas veces más lento que la velocidad de un bucle...

[Khronos]

Lo mejor seria utilizar un timer con el intervalo a 1, tendrias un evento ke se lanzara cada milisegundo.
Podrias usar otra cosa pero nadie en su sano juicio la usaria ya que se emplea en programacion virica y tiende a dejar colgado el programa o el sistema .
Hablo de GoTo. Solo la nombro.


procedure TForm1.FormActivate(Sender: TObject);
label continuo;
begin
continuo:
FRECUENCIA(edit1.text);
Goto continuo;
end;



Espero haberte ayudado.

Salu2

[emeceuy]

muchas gracias por las respuestas... lo del timer lo descarto, porque ya he probado y es bastante más lento de lo que necesito, así que intentaré de la manera innombrable jajajaja y veré que tan sano está mi juicio

[emeceuy]

he probado y no me funciona... es como si fuera un bucle comun y corriente, porque muestra a la label1 incrementandose muy rapidamente, pero no puedo destildar la casilla de verificacion, ni apretar el boton, ni nada...

les dejo el codigo con el que probé

Código Delphi [-]
procedure FRECUENCIA(numero:integer);
begin
   form1.label1.caption:=inttostr(numero);
   form1.Refresh;
end;

procedure TForm1.Button1Click(Sender: TObject);
label continuo;
var numero:integer;
begin
numero:=0;
continuo:
   begin
      numero:=numero+1;
      FRECUENCIA(numero);
      if checkbox1.checked then Goto continuo
   end;
end;

[Khronos]

Ya te dije ke tiende a dejar colgado el programa o el sistema, por eso se utiliza en la programacion virica .
A mi no se me ocurre nada mas, si descartastes lo del timer y repeat no veo muchas mas opciones.

[emeceuy]

es que no tengo muchas más opciones no tengo más remedio que descartar las anteriores... el timer no me sirve porque va muy lento para lo que necesito, y el repeat y el goto no me permiten variar cosas de la pantalla, como un edit o apretar un boton

[Gregory Mazon]

Hola pon la siguiente instruccion y listo, resuelto el problema
Application.ProcessMessages;

Código Delphi [-]
procedure FRECUENCIA(numero:integer);
begin
   form1.label1.caption:=inttostr(numero);
   form1.Refresh;
end;

procedure TForm1.Button1Click(Sender: TObject);
var numero:integer;
begin
  Numero := 0;
  Repeat
      numero:=numero+1;
      FRECUENCIA(numero);
      Application.ProcessMessages;   
  Until termina;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Termina := true;
end;