Interrumpir un ciclo Repeat - Until

[roman]

Empezado por FGarcia

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?

Para saber si una tecla está presionada o no, lo que importa es la información en el último bit del número que devuelve GetKeyState. La operación

Código Delphi [-]
GetKeyState and 128

aisla ese último bit ya que el 128 tiene 1 en el bit 7 y 0 en todos los demás (la operación AND es una operación booleana bit a bit).

En otras palabras, el resultado de la operación sólo puede ser 128 ó 0. De ahí la comparación con 128.

Yo he hecho la prueba y funciona si añades a tu ciclo una llamada a Application.ProcessMessages:

Código Delphi [-]
repeat
  Application.ProcessMessages;

  ....

  if GetKeyState(VK_ESCAPE) and 128 = 128 then
    break;
until Num = Terminador

aunque yo lo pondría así:

Código Delphi [-]
repeat
  Application.ProcessMessages;

  ....

until (Num = Terminador) or (GetKeyState(VK_ESCAPE) and 128 = 128)

Agrego

Otra cosa: el operador and tiene precedencia sobre el operador =. Por tanto, la expresión

Código Delphi [-]
GetKeyState(VK_ESCAPE) and 128 = 128

es equivalente a

Código Delphi [-]
(GetKeyState(VK_ESCAPE) and 128) = 128

De manera que no es que la condición siempre sea verdadera.

// Saludos

[[FGarcia]]

Lo siento si soy molesto pero ...no me funciona, modifique con la sugerencia que me diste Roman pero no, igual se queda en ciclo infinito. En si lo que estoy capturando es una cadena proveniente del COM1,el puerto ya esta abierto y comprobado que con esta rutina captura adecuadamente, sin embargo lo que quiero es poder romper el ciclo repeat - until con ESC en caso de que por alguna razon la cadena no pudiese ser capturada (puerto dañado, cadeana enviada diferente, etc). Actualmente solo desconecto el dispositivo que envia datos para poder simular una falla y usar ESC para salir del bucle.

Código Delphi [-]
// Los datos se repiten y terminan con #13(CR)
  repeat
    Application.ProcessMessages ;
    
      repeat
      Application.ProcessMessages ;
      until (FileRead(HandlePuerto,Num,1)=1) or (GetKeyState(VK_ESCAPE) and 128 = 128);
  until (Num = Terminador) or (GetKeyState(VK_ESCAPE) and 128 = 128); // Final de cadena anterior
  
  Cad:='';
  
  for n := 1 to longCadena do
    begin
      repeat
        //Rompe ciclo con ESC
        Application.ProcessMessages ;
        until (FileRead(HandlePuerto,Num,1)= 1) or (GetKeyState(VK_ESCAPE) and 128 = 128);//lee un byte
      Cad := Cad + chr(Num);
    end;
 
  cPeso := MidStr(Cad,3,8);
  cUnits := MidStr(Cad,11,1);
  cMode := MidStr(Cad,12,1);
  cStatus := MidStr(Cad,13,1);

[[Fenareth]]

Empezado por roman

...
Agrego

Otra cosa: el operador and tiene precedencia sobre el operador =. Por tanto, la expresión

Código Delphi [-]GetKeyState(VK_ESCAPE) and 128 = 128


es equivalente a

Código Delphi [-](GetKeyState(VK_ESCAPE) and 128) = 128


De manera que no es que la condición siempre sea verdadera.

// Saludos

Excelente hoy aprendí algo nuevo de "rebote"

[[FGarcia]]

OK, ya me funciono....el problema estaba en que como desconectaba el transmisor nunca recibia nada y en la sentencia :

Código Delphi [-]
repeat
      until (FileRead(HandlePuerto,Num,1)=1) or (GetKeyState(VK_ESCAPE) and 128 = 128);

el FileRead espera recibir un caracter el cual al estar desconectado nunca llega. Si modifico la cadena enviada para que no cumpla lo que espero funciona bien con la tecla ESC. Ahora el problema cambia a como abortar el ciclo si no llega nada al puerto serie. Jeje Ese sera tema de otro hilo.

Gracias por la ayuda!!!