Определить нажатие клавиши во время выполнения цикла

Delphi , Синтаксис , Циклы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   LoopAborted: Boolean;
   i: Integer;
 begin
   LoopAborted := False;
   i := 0;
   repeat
     // Your Code... 
    Caption := IntToStr(i);
     Application.ProcessMessages;

     if GetKeyState(VK_Escape) and 128 = 128 then
     begin
       LoopAborted := True;
       Break;
     end;

     Inc(i);
   until i = 100000;
   if LoopAborted then
     ShowMessage('User has aborted the loop!');
 end;

Here's the translation of the provided content into Russian:

Код на Delphi - это процедура, которая запускает бесконечный цикл (от 0 до 100000) и проверяет нажатие клавиши Escape в течение этого процесса. Когда клавиша Escape нажата, цикл прерывается, и появляется сообщение с текстом "Пользователь прервал цикл!".

Распределение работы:

1. Процедура Button1Click запускается при клике на кнопку с надписью "Button1".
2. Она инициализирует две переменные: LoopAborted (логическое) и i (целое).
3. Она устанавливает LoopAborted в False и i в 0.
4. Цикл запускается, инкрементируя i от 0 до 100000.
5. В каждом шаге цикла она обновляет надпись формы с текущим значением i.
6. Затем она проверяет нажатие клавиши Escape с помощью функции GetKeyState, которая возвращает значение, указывающее состояние указанной клавиши (в этом случае, VK_Escape). Если клавиша внизу и была нажата не менее 128 миллисекунд (пороговое значение), она устанавливает LoopAborted в True.
7. Если LoopAborted теперь True, цикл прерывается.
8. После завершения цикла, если LoopAborted все еще False, процедура продолжает выполнение. В противном случае, она отображает сообщение с указанным текстом.

Альтернативное решение с использованием отдельного потока для проверки нажатий клавиш, оставляя основной поток ответственным:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    var i: Integer;
    begin
      i := 0;
      repeat
        Caption := IntToStr(i);
        Application.ProcessMessages;

        if GetKeyState(VK_Escape) and 128 = 128 then
          Exit;

        Inc(i);
      until i = 100000;
    end).Start;
end;

В этом альтернативном решении код создает новый поток, который запускает цикл. Это позволяет основному потоку продолжать выполнение (например, обновлять UI) при проверке нажатий клавиш в фоновом режиме. Когда клавиша Escape нажата, поток выходит из строя и цикл прерывается.

Статья описывает программный код на языке Delphi, позволяющий определять нажатие клавиши "Escape" во время выполнения цикла и прекращать его если пользователь выберет это действие.

Комментарии и вопросы

:: Главная :: Циклы ::