Interrumpir un ciclo Repeat - Until

[[FGarcia]]

Hola!

Un saludo y un feliz año a todos los integrantes del club.

Mi pregunta basicamente es ¿como interrumpir le ejecucion de un ciclo Repeat - Until (son dos anidados) usando la tecla ESC?

basicamente el ciclo es:

Código Delphi [-]
repeat
   repeat
      until //lo que sea
until //lo otro 
 
//intente esto pero no me hace nada. key es un var de tipo Char
repeat
   repeat
      if key = #27 then
        break;
      until //lo que sea que espere
   if key = #27 then
      break;
until //lo otro que espere

Como siempre agradeciendo su ayuda

[DarkMan]

Yo lo he probado y si funciona, el problema que veo que puede ser por el que no te funcione, es que no le das tiempo a la aplicación para leer el teclado, para leer la tecla esc, por lo que nunca te sale del ciclo.

[[FGarcia]]

mmmm....
coloque

Código Delphi [-]
sleep(100);

antes de la comprobacion de la tecla ESC pero no, no me funciona...

[DarkMan]

¿Cómo se supone que obtiene el valor la variable key? lo pregunto porque estas haciendo un ciclo en el que 'key' no actualiza nunca su valor. Por eso nunca saldrá del bucle, por muchos sleeps que pongas. Si key obtiene su valor por una llamada a una función, deberás intercalarla en el propio ciclo. Si pones el pedazo de código más ampliado, quizás pueda ayudarte mejor.

[[FGarcia]]

jajajaja tienes razon!!

Key nunca obtiene un valor!

Ah que bruto soy!!!

[[FGarcia]]

Continuo con esto, he cambiado el codigo por este otro que encontre en un hilo del club; el truco es de trucomania.

Código Delphi [-]
// Los datos se repiten y terminan con #13(CR)
  repeat
    repeat
      //Rompe ciclo con ESC
      Application.ProcessMessages ;
      if GetKeyState(VK_Escape) and 128 = 128 then
        break;
    until FileRead(HandlePuerto,Num,1)=1;
  //Rompe ciclo con ESC
  Application.ProcessMessages ;
  if GetKeyState(VK_Escape) and 128 = 128 then
    break;
  until Num = Terminador; // Final de cadena anterior

Segun que funciona en los bucles, pero no, no me ha funcionado, es mas no logro entender la logica: GetKeyState regresa un smallint que es el equivalente de la tecla pulsada pero ¿que hace el AND 128 = 128?

Una manita...