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

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

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

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

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

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

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

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

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

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

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


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