1. Заголовок или название темы должно быть информативным ! 2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code]. 3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК ! 4.НЕ используйте форум для личного общения! 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Пытаюсь написать процедурку, которая напротив элемента меню (всего 6 элементов) рисует стрелку и при нажатии клавишь вверх и вниз перемещается соотвественно, впритык не вижу, где ошибка. Процедура clean очищает все стрелки которые только возможны. В результате стрелка рисуется 1 раз а потом не двигается. Программа уж очень громоздкая, но если по данному кусочку не сможете помочь, сделаю поменьше и выложу:
begin command:=1; y:=14; x:=25; While True do begin ch:=readkey; If ord(readkey) = 27 then Exit; if ord(ch) = 72 then begin if (command <> 1) then dec (command) else command:= 6; end else if ord(ch) = 80 then begin if command <> 6 then inc(command) else command:=1; end; case command of 1: begin clean; gotoXY(X-5,Y); textcolor(black); write ('---->'); end; 2: begin clean; gotoXY(X-5,Y + 2); textcolor(black); write ('---->'); end; 3: begin clean; gotoXY(X-5,Y + 4); textcolor(black); write ('---->'); end; 4: begin clean; gotoXY(X-5,Y + 6); textcolor(black); write ('---->'); end; 5: begin clean; gotoXY(X-5,Y + 8); textcolor(black); write ('---->'); end; 6: begin clean; gotoXY(X-5,Y + 10); textcolor(black); write ('---->'); end; end; end;