Detener un bucle

[lfidanza]

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 !!!!!!!!!

[hecjona]

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;

[andres1569]

Mira esto:

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;

[andres1569]

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.

[lfidanza]

Muchas gracias

[jachguate]

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:

  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.