Автор | Сообщение |
|
| |
Пост N: 7
Зарегистрирован: 23.01.07
|
|
Отправлено: 26.01.07 11:35. Заголовок: Несколько вопросов Clipper 87 + xHarbour
1. Странно работает Set Cursor On/Off. При вызове Set Cursor почему-то очищается экран, после нажатия ENTER появляется сдвинутый экран с Get-окошком. Заменила Set Cursor On на ф-цию SetCursor() ничего не изменилось. 2. Работа dbedit() организована так, что приходится в буф.клавиатуры заносить коды клавиш, при этом dbedit() замедляется настолько, что видно как прорисовывается экран с самой первой строчки. 3. как в клиппере проверить принадлежит ли элемент множеству, например, в Delphi можно сделать вот так if i in [1,2,3] then ...
|
|
|
Ответов - 6
[только новые]
|
|
|
| |
Пост N: 620
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.01.07 16:28. Заголовок: Re:
lena пишет: цитата: | Заменила Set Cursor On на ф-цию SetCursor() ничего не изменилось. |
| Это одно и то же #command SET CURSOR <x:ON,OFF,&> ; => SetCursor( if(Upper(<(x)>) == "ON", 1, 0) ) #command SET CURSOR (<x>) ; => SetCursor( if(<x>, 1, 0) )
|
|
|
|
| |
Пост N: 8
Зарегистрирован: 23.01.07
|
|
Отправлено: 26.01.07 16:41. Заголовок: Re:
csetcurs(.T.) @ ustr,ukol get ukod picture jspic read csetcurs(.F.) вот код. Если убираю csetcurs(.T.) и csetcurs(.F.) - работает нормально, если вставляю их, то экран гаснет сразу после read. Если запускаю из-под FAR, то все работает без проблем и с курсором, а вот при запуске с раб.стола - все, гибель, экран гаснет.
|
|
|
|
| постоянный участник
|
Пост N: 98
Зарегистрирован: 09.10.06
|
|
Отправлено: 26.01.07 16:42. Заголовок: Re:
1 и 2 это не вопросы, а констатация. Вопрос задан только один : как в клиппере проверить принадлежит ли элемент множеству в Delphi in [1,2,3]
|
|
|
|
| |
Пост N: 9
Зарегистрирован: 23.01.07
|
|
Отправлено: 26.01.07 17:13. Заголовок: Re:
констатация то констатация, а делать то что-то надо. Где искать? Все вроде бы работает нормально, бросить огромную работу что ли из-за такой мелочи?
|
|
|
|
| |
Пост N: 621
Зарегистрирован: 17.05.05
|
|
Отправлено: 26.01.07 17:58. Заголовок: Re:
lena пишет: цитата: | Если запускаю из-под FAR, то все работает без проблем и с курсором, а вот при запуске с раб.стола - все, гибель, экран гаснет. |
| Вынеси ярлык на программу и настрой свойства ярлыка. С ярлыка и запускай.
|
|
|
|
| постоянный участник
|
Пост N: 101
Зарегистрирован: 09.10.06
|
|
Отправлено: 26.01.07 22:46. Заголовок: Re:
lena пишет: цитата: | 3. как в клиппере проверить принадлежит ли элемент множеству, например, в Delphi можно сделать вот так if i in [1,2,3] then ... |
| клиппере или xHarbour? Для xHarbour Local arr1 := {1,2,3} Local i i:= 2 IF ( i IN arr1 ) .. ENDIF т.е. используем оператор IN <Exp> IN <Array_or_StringExp> => .T./.F. The IN operator is very similar to the $ operator, but is valid on *both* Strings and Arrays. IN is much faster than the equivalent: aScan( <Array>, <Exp> ) > 0 В клиппере работаем с aScan. Можно и с BIT Operators повозиться.
|
|
|
|