нажатие кнопок..., считывание нажатия в цикле без его ост. Опции

[MuXa]

я хотел бы знать как в цикле фиксировать нажатие кнопки не останавливая при этом цикл ...
т.е. например в теле цикла х имзеняется по форуле x:=x+1; ... нажал что нада
а цикл всё идёт и ёдет ... но уже x:=x+2; ... вот так вот ...


за ответы заранее благодарен !

[Romtek]

Флейм пошёл жестокий...

Код

repeat

 key := readkey;
 if key=#0 then
   key := readkey;

 case key of
 #75:; {Left}
  begin
     x:=x-stepX;
     if (x < minX) then
        stepX := -stepX; {поменять направление движения на обратное}
  end;

 #77: {Right}
  begin
     x:=x+stepX;
     if (x > maxX) then
        stepX := -stepX;
  end;

 #72:; {Up} аналогично

 #80:; {Down}
 end;

until key=#27; {Esc}

Сообщение отредактировано: romtek - 24.01.2005 2:49