Foros Club Delphi - Detener un bucle

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Detener un bucle (https://www.clubdelphi.com/foros/showthread.php?t=1710)

Detener un bucle

Hola, se que esto debe ser muy sencillo, pero no lo puedo solucionar.
Tengo que realizar un bucle dentro del cual se controlan los datos que entran a la PC por medio de un puerto. Este proceso se tiene que hacer indefinidamente hasta que el usuario lo detenga. Ahora, cómo hago para generar un evento que pueda interrumpir un bucle??
Yo hago

Repeat

Leer puerto, etc etc

Until ......

Antes en Turbo Pasca utilizaba 'Until Keypressed', pero ahora no ecuentro nada equivalente.

Otra cosa que pensaba era hacer

Repeat
...

if ???? Break

Until ...

Pero tampoco se me ocurre que condición puedo utilizar para detener.
Me gustaría que se detenga cuando el usuario pulse cualquier tecla del teclado, o si no se puede poner un botón y que lo presione para terminar.

Muchas gracias !!!!!!!!!

Declaras una variable miembro de la forma
puede ser en el private.

bCancelado : Boolean;

La inicializas en el oncreate de la forma
bCancelado := False;

Dentro de tu procedimiento....

While bCancelado = false do
begin
........Instrucciones
Application.processmessages;
end;

dentro del evento onclick de un boton (con caption "Cancelar")
bCancelado := true;

la instruccion Application.processmessages es la clave;

Mira esto:

Código:

var

  UsuarioDiceNo : Boolean;



procedure MiBucle;

begin

  UsuarioDiceNo := FALSE;

  repeat

    ...

    ...

    Application.ProcessMessages; // para que mire si se ha clickeado

  until Condicion OR UsuarioDiceNo;

end;



// en el OnClick de un boton cualquiera



procedure TForm1.Button1Click (Sender : TObject);

begin

  UsuarioDiceNo := TRUE;

end;

Bueno, se me ha adelantado hecjona, su mensaje es casi igual al mío, se diferencian en que me ha faltado decir:

Saludos desde la tierra del buen vino y de mujeres también hermosas. :) :) :)

Yo te sugeriria, al poner una llamada application.ProcessMessages además, que tengas cuidado con que otras cosas dejarás hacer al usuario, porque la aplicación sigue siendo "responsiva", y el usuario puede interactuar con botónes, menús, etc.

Por ejemplo, si tenes una rutina de finalización que es imperativo que corra... el usuario podrá cerrar la aplicación sin ejecutarla.... por lo tanto también deberias tener algo como:

Código:

  MiClase = Class(TForm)

  .... 

  Private

    FCancelado : Boolean;

    FEnProceso : Boolean;

  ....

  end;



  Implementation



  Procedure TMiClase.HacerProceso;



  Begin

    FEnProceso := True;

    try

      Inicializacion;

      Repeat

        HacerUnBucleDelProceso;

      Until (CondicionesNormales) or (FCancelado);

      Finalizacion;

    finally

      FEnProceso := False;

    end;

  End;



  Procedure TMiClase.BotonCancelarClick(Sender : TObject);

 

  Begin

    FCancelado := True;

  End;



  Procedure TMiClase.OnCloseQuery(Sender : TObject; Var CanClose : Boolean);



  Begin

     CanClose := Not FEnProceso;

  End;

Además, te sugeriria deshabilitar botones, por ejemplo, para que el usuario no inicie el proceso dos veces concurrentemente.... y algunas otras consideraciones que dependerán de tu programa....

Hasta luego.

;)