процедура, которая будет что-то делать пока зажата клавиша пробел.

[Porkman]

помогите написать процедуру, которая будет что-то делать пока зажата клавиша пробел.

вот что я имею:

var c:char;

procedure abc;
while {зажата клавиша пробел} do
begin
write('эээ');
end;
end;

begin
c:=ReadKey;
c:=ord(c);
abc;
readln;
end.

что надо написать вместо {зажата клавиша пробел}? заранее спасибо.

[Викдон]

while readkey=#32 do
  write('Зажат пробел');

[Porkman]

Спасибо.
А если так.. Мне нужно чтоб при нажатии клавиши пробел комп пищал а при её отпускании переставал.

Если вместо "write('Зажат пробел');" вставить "sound(round(100));" то при отпускании пробела звук будет продолжаться.. для этого мне и нужно отследить когда кнопка отпускается, чтоб использовать "nosound;"..

Очень надо решить эту задачу. Помогите пожалуйста!

[Dj_smart]

Дык у клавиатуры есть такая вищичка как буффер, то при "Пищании" паскаль не успевает выгребать буфер кнопок т.к. beep загружает его. После отпускания он догребает буфер а потом прекращается. И даже если ты уже не тыкаешь на заветный пробел - в буфере всёравно остаются данные и Паскаль не успокоиться пока не сожрёт весь буфер. Причём чем дольше держать - тем дольше продолжает пищать после стопа. Так?

Как вариант попробуй подставить вместо sound(round(100)) sound(round(10)); Т.е. длина пика меньше и он должен успевать.

[Porkman]

дело не в этом.
"sound(round(100));" - 100 - это частота колебания, то есть нота.

Функция
uses crt;
begin
sound(round(100));
end.
включит пищалку.

мне нужно просто отследить когда клавиша отжимается и вставить
nosound;

Как же мне это сделать?)