Отправлено: 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 ...

 Отправлено: 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) )

 Отправлено: 26.01.07 16:41. Заголовок: Re:

csetcurs(.T.)
@ ustr,ukol get ukod picture jspic
read
csetcurs(.F.)
вот код. Если убираю csetcurs(.T.) и csetcurs(.F.) - работает нормально, если вставляю
их, то экран гаснет сразу после read. Если запускаю из-под FAR, то все работает без проблем и с курсором, а вот при запуске с раб.стола - все, гибель, экран гаснет.

 Отправлено: 26.01.07 16:42. Заголовок: Re:

1 и 2 это не вопросы, а констатация.

Вопрос задан только один :
как в клиппере проверить принадлежит ли элемент множеству в Delphi in [1,2,3]

 Отправлено: 26.01.07 17:13. Заголовок: Re:

констатация то констатация, а делать то что-то надо. Где искать? Все вроде бы работает нормально, бросить огромную работу что ли из-за такой мелочи?

 Отправлено: 26.01.07 17:58. Заголовок: Re:

lena пишет:

цитата:

Если запускаю из-под FAR, то все работает без проблем и с курсором, а вот при запуске с раб.стола - все, гибель, экран гаснет.

Вынеси ярлык на программу и настрой свойства ярлыка. С ярлыка и запускай.

 Отправлено: 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 повозиться.