Espera larga en bucle while

[mosco]

¿Se puede estar mucho tiempo en un bucle while a la espera?.
Lo he probado y el programa se cuelga.

Necesito esperar cerca de un minuto a que se cumpla una condición y luego seguir ejecutando el codigo.

¿Hay alguna forma simple de hacerlo?.

Saludos.

[Neftali [Germán.Estévez]]

Utiliza un TTimer.
De esa forma además no bloquearás el programa.

Le asignas el Interval a 60000, lo activas y cuando pasen 60 segundos "saltará" el evento OnTimer. Ahí puedes programar lo que necesites.

[ecfisa]

Hola mosco.

Estoy de acuerdo con Neftali, es la elección más apropiada.

Ahora, si por algún motivo necesitas "congelar" la aplicacion por x tiempo podes hacer:

Código Delphi [-]
procedure WaitMinute(Lapso: Single);
var
  t1, t2: TTime;
begin
  t1  := Time;
  while (t2-t1)*1440 <= Lapso do
    t2 := Time;
end;

Llamadas:

Código Delphi [-]
begin
   WaitMinute(1); // 1 min.
   WaitMinute(.5); // 30 seg.
   ...

Saludos.

[mosco]

Muchas gracias a ambos. Me ha solucionado muchisimo.

Saludos.

[[nlsgarcia]]

mosco,

Empezado por mosco

...¿Se puede estar mucho tiempo en un bucle while a la espera?...Lo he probado y el programa se cuelga...

En términos absolutos Si, en términos relativos depende de los requerimientos de la aplicación.

Como se menciono en el Msg #2 el uso del control TTimer permite de forma eficiente programar la ejecución de tareas en un intervalo de tiempo determinado, sin embargo también es posible hacerlo mediante una técnica denominada Espera Activa.

Revisa este código:

Código Delphi [-]
procedure WaitInterval(Lapse : LongWord);
var
   Start, Stop : Cardinal;

begin

   Start := GetTickCount;
   Repeat
      Stop := GetTickCount;
      Application.ProcessMessages;
      Sleep(10); // Evita el alto consumo de CPU por la técnica de Espera Activa.
   until (Stop - Start) >= Lapse;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   WaitInterval(60000);

   // El código que se requiera ejecutar luego de haber transcurrido un lapso de 60000 ms = 1 min, Ejm: ShowMessage.
   ShowMessage('Fin de WaitInterval');

end;

El código anterior permite ejecutar un proceso luego de haber transcurrido 1 minuto sin bloquear la aplicación, puede ser útil como complemento del Procedure Sleep.

Espero sea útil

Nelson.