FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 !!!!!!!!! |
#2
|
||||
|
||||
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;
__________________
Saludos desde la tierra del tequila y las mujeres hermosas |
#3
|
|||
|
|||
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;
__________________
Guía de Estilo |
#4
|
|||
|
|||
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.
__________________
Guía de Estilo |
#5
|
|||
|
|||
Muchas gracias
|
#6
|
||||
|
||||
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; Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
|