Коды клавиш - буквы и дополнительные символы

[Grag]

Я тоже писал и меню и интерактивный диалог, только в библиотеке TV это все проще и код компактнее. Как никак, а все же ООП... Так что лучше сразу ориентироваться на лучшее...

[Фиалка001]

Всё равно не получается... Либо прекращается перемещение по списку и работа Esc, Backspace и т.д., либо ненадолго блокируются запретные клавиши, но потом всё равно выводятся, через несколько нажатий других клавиш... В какое место в программе и что именно нужно вставить, чтобы всё нормально работало?

[rlevv]

Сообщение от Фиалка001

Всё равно не получается... Либо прекращается перемещение по списку и работа Esc, Backspace и т.д., либо ненадолго блокируются запретные клавиши, но потом всё равно выводятся, через несколько нажатий других клавиш... В какое место в программе и что именно нужно вставить, чтобы всё нормально работало?

Ну что можно еще посоветовать:
Организовывай ввод по другому

while c<>'0' do
begin
case c of
'a'..'z','A'..'Z':write(c);
end;
c:=readkey;
end;

Тоесть по принципу неизвестного: тот символ который не указан в массиве case мы просто не выводим на экран

а вообще что в общем из себя представляет эта программа? редактор текста чтоли?

[Фиалка001]

Это курсовая работа, Вступительные экзамены. Нужно было организовать ввод фамилии, имени, отчества и паспорта. Четыре кнопочки в столбик, между ними переходим и вводим то, что нужно. Я вчера наконец-то сделала это, знакомый помог. После считывания символа поставила

a:=false;
if key=#0
Then
Begin
a:=true;
key:=readkey
End;

а перед непосредственным выводом перед оператором case key of поставила if not(a) then

И всё заработало! Большое спасибо за помощь!