
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.08.2005, 09:27:25
|
|||
|---|---|---|---|
|
|||
Не останавливается на READ |
|||
|
#18+
Имеется программа написаная лет 15 -20 назад на FPD (а может и на KARAT`е) Написана ужасно, но до недавнего времени работала. Ведение дурнала дебеторских счетов Там идет последовательное заполнение полей, при чем какое следующее поле будет доступно для редактирования зависит от введенной информации и от комбинации клавиш нажатых пользователем. Ожидание включается функцией InKey() Из Этой программы, по нажатию F3 вызывается процедура (написанная намного позже) для ввода оплаты. Там используется READ и READKEY() Дак вот: При первом входе в процедуру все работает прекрасно, но если нажать Esc и попытаться туда еще раз войти, она на Read больше не остановится ... После Read Readkey()=15 InKey()=0 LastKey()=13 ReadKey(0)=1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.08.2005, 12:43:44
|
|||
|---|---|---|---|
Не останавливается на READ |
|||
|
#18+
Попробуй перед inkey сделать: clear typeahead Не поможет - попробуй еще так (тоже перед inkey): set typeahead to 0 set typeahead to 20 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.08.2005, 12:47:21
|
|||
|---|---|---|---|
Не останавливается на READ |
|||
|
#18+
Вернее, перед возвратом к read Ну и еще: READ VALID [твоя переменная: пока явно не установишь, не выйдешь] И еще: Поиграй этими 4-мя настройками. SET ESCAPE ON ESCAPE ON KEY ON KEY LABEL ESC ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.08.2005, 14:36:06
|
|||
|---|---|---|---|
|
|||
Не останавливается на READ |
|||
|
#18+
Проблему решил. Поставил второй READ :-))) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.08.2005, 14:44:51
|
|||
|---|---|---|---|
Не останавливается на READ |
|||
|
#18+
На всякий случай потестируй, что будет после нажатия на кнопку Esc 5 раз подряд ;-) (Впрочем, это я к слову, на самом деле, конечно, READ по ESC должен завершаться). Да, стиль построения приложения прям доисторический ;-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=41&mobile=1&tid=1593653]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
185ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
24ms |
get tp. blocked users: |
1ms |
| others: | 180ms |
| total: | 416ms |

| 0 / 0 |
