FormKeyPress в цикле

[wizard3d3000]

Здравствуйте, я навичок в программировании. Помогите пожалуйста.
Мне нужно что бы программа по нажатию какой либо клавиши начинала работу в цикле. По нажатию на другую клавишу выходила из цикла.

вот пример моей "болванки" для программы:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
flag,i:integer;
begin
   flag:=1;
    while flag<1000 do
     begin
      if Key in['b']  then  flag:=1500; end;
     end;
end;

Программа начинает работать по нажатию на любую клавишу. Если нажать кнопку 'b' то значение флага станет больше 1000 и программа должна выйти из цикла. ПОЧЕМУ НА НЕ ВЫХОДИТ?

[_-Re@l-_]

  if Key in['b']  then  flag:=1500; end;

Лучше напиши

  if Key = 'b' then  flag:=1500; end;

[wizard3d3000]

Сообщение от _-Re@l-_

  if Key in['b']  then  flag:=1500; end;

Лучше напиши

  if Key = 'b' then  flag:=1500; end;

Спасибо, так красивее, но всё равно ничего не работает. Такое чувство как будто програ просто зависает ((

[DIgorevich]

Вставь Application.ProcessMessages сюда:

 while flag<1000 do
     begin
    Application.ProcessMessages

А вообще я бы сделал по-другому. Объявил flag, как глобальную переменную, а потом:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    repeat
     begin
       Application.ProcessMessages;
       if Key = 'b' then  flag:=1500;
     end;
    until flag>1000;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=1;
end;

[wizard3d3000]

Сообщение от DIgorevich

Вставь Application.ProcessMessages сюда:

 while flag<1000 do
     begin
    Application.ProcessMessages

Спасибо, программа не стала виснуть. Просто почемуто она не заходит в цикл по нажатию клавиши b.

 flag:=1000; s:=10;

    while flag<1200 do
     begin
        Application.ProcessMessages;
        s:=s+1;
        form1.Label1.Caption:=IntToStr(s);
        if Key = 'b' then flag:=1500;
        form1.Label3.Caption:=IntToStr(flag);
     end;

т.е. Я нажимаю любую клавишу и вижу как переменная s наращивается, а как я нажимаю 'b' флаг должен стать больше чем 1000 и программа должна выйти из этого цикла, но при нажатии на клавишу программа из цикла не выходит. даже если я пропишу вот такой код:

 if Key = 'b' then begin label1.capion:='123123' flag:=1500; end;

, программы не прописывает это значение label1, т.е. она даже не заходит в цикл по нажатию b.

[DIgorevich]

Важно учитывать, что всякое присвоение значение переменной тут:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
flag,i:integer;
begin
   flag:=1;

Будет происходить каждый раз при нажатии любой клавиши.


Вот мой рабочий вариант:

var
  Form1: TForm1;
  flag,s:integer;
implementation

{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    repeat
     begin
       s:=s+1;
       Application.ProcessMessages;
       if Key = 'b' then  flag:=1500;
       Form1.Caption:=IntToStr(s);
     end;
    until flag>1000;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=1;
  s:=10;
end;

[wizard3d3000]

Сообщение от DIgorevich

Вставь Application.ProcessMessages сюда:

 while flag<1000 do
     begin
    Application.ProcessMessages

А вообще я бы сделал по-другому. Объявил flag, как глобальную переменную, а потом:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    repeat
     begin
       Application.ProcessMessages;
       if Key = 'b' then  flag:=1500;
     end;
    until flag>1000;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag:=1;
end;

Спасибо Вам большое, всё заработало.

[Sibedir]

Ну вот, пока делал свой вариант, уже решили вопрос. Ну да ладно. Так даже лучше. На интересный вопрос должно быть много ответов.

Короче, вот мой криатиф: KeyDown в цикле.zip
Два нюанса
Нюанс №1:
Вместо KeyPress использую KeyDown. В KeyPress имеет значение текущая раскладка (язык) и нажатие Shift (заглавные/прописные).
Нюанс №2:
Думаю, Flag типа Boolean подходит гораздо лучше.
Нюанс №3: Считать научись умник (добавлено 6-ой (злой) личностью автора)
Программа не закрывается, пока не остановлен процесс.

[Serge_Bliznykov]

wizard3d3000
Вы изначально неправильно придумали как надо решать Вашу задачу!
Поверьте, цикл внутри процедуры FormKeyPress Вам НЕ НУЖЕН!
Там нужно только включение/выключение какого-нибудь флага(семафора), а возможно и запуск/остановка таймера - чувствую, оттуда у задачи ноги растут...

Расскажите, ЧТО Вы хотите получить от работающей программы, тогда легче будет Вам объяснить КАК этого добиться.


_______________
ДОБАВЛЕНО
пока читал/писал, похоже, уже заставили Ваш цикл работать. Если Вас устраивает такое решение, то тему можно закрыть, хотя я остаюсь при своём мнении — изначальная задача может быть решена по другому, более "красиво"

[Sibedir]

Да, да. Слушайте Serge_Bliznykov'а.
Это, кстати, нюанс №4.