powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не останавливается на READ
5 сообщений из 5, страница 1 из 1
Не останавливается на READ
    #33222161
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имеется программа написаная лет 15 -20 назад на FPD (а может и на KARAT`е)
Написана ужасно, но до недавнего времени работала.
Ведение дурнала дебеторских счетов

Там идет последовательное заполнение полей, при чем какое следующее поле будет доступно для редактирования зависит от введенной информации и от комбинации клавиш нажатых пользователем.
Ожидание включается функцией InKey()

Из Этой программы, по нажатию F3 вызывается процедура (написанная намного позже) для ввода оплаты. Там используется READ и READKEY()

Дак вот: При первом входе в процедуру все работает прекрасно, но если нажать Esc и попытаться туда еще раз войти, она на Read больше не остановится ...

После Read
Readkey()=15
InKey()=0
LastKey()=13
ReadKey(0)=1
...
Рейтинг: 0 / 0
Не останавливается на READ
    #33222847
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй перед inkey сделать:
clear typeahead

Не поможет - попробуй еще так (тоже перед inkey):
set typeahead to 0
set typeahead to 20
...
Рейтинг: 0 / 0
Не останавливается на READ
    #33222865
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вернее, перед возвратом к read

Ну и еще:
READ VALID [твоя переменная: пока явно не установишь, не выйдешь]

И еще:
Поиграй этими 4-мя настройками.
SET ESCAPE
ON ESCAPE
ON KEY
ON KEY LABEL ESC
...
Рейтинг: 0 / 0
Не останавливается на READ
    #33223210
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проблему решил.

Поставил второй READ :-)))
...
Рейтинг: 0 / 0
Не останавливается на READ
    #33223238
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На всякий случай потестируй, что будет после нажатия на кнопку Esc 5 раз подряд ;-)

(Впрочем, это я к слову, на самом деле, конечно, READ по ESC должен завершаться).

Да, стиль построения приложения прям доисторический ;-)
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Не останавливается на READ
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]