|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.04.2012, 00:07 | #1 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Завершение работы программы нажатием ESC
Доброго времени суток.
В общем пытаюсь заставить закрываться программу нажатием кнопки, и, так как приложение консольное, начал писать альтернативный readln: Код:
Если жмем ентер - число введено до конца, сохраняем в переменную. Ничего не введено - ничего не происходит. Ескейп - присваиваем вводимому числу значение -9999, что в последующем приведет меня к закрытию программы. Backspace (#8) - самое интересное. Если длина строки равна нулю (ничего не введено), то ничего не делает. В противном случае удаляет из строки последний символ и затирает символ в самой консоли, при помощи GoToXY (прошу не бросаться камнями, это не GoTo). Так вот, все отлично работет, пока полоса прокрутки стоит на месте. Потом имеем следующее: жмем backspace, коретка уползает вправо при каждом нажатии, через несколько шагов (как оказалось - равному количеству цифр) останавливается. Причем вводимая строка редактируется нормально, но в консоли отображается совсем не так, как надо. В чем может быть ошибка? Да, среда - pascalABC.net Тело программы (фрагмент, крутищийся в цикле): Код:
Update: попробовал во Free Pascal, все работает без проблем...
Все тривиальное просто
Последний раз редактировалось whatever; 30.04.2012 в 01:18. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Завершение работы программы без формы | FaTaL | Общие вопросы Delphi | 5 | 21.06.2011 09:55 |
Закрытие программы по Esc | VovanZ | Общие вопросы Delphi | 2 | 14.02.2010 20:55 |
Выход из цикла нажатием ESC | Banderas123 | Помощь студентам | 2 | 05.12.2009 22:44 |
При завершение работы программы появляется окно Microsoft Visual C++ Debug Library | TheWanderer | Visual C++ | 2 | 25.11.2008 00:27 |
Завершение работы чужой программы | Viteef | Win Api | 12 | 24.09.2007 12:31 |