Реализация алгоритма обработки данных
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат роль, сочинение на тему зимой
Добавил(а) на сайт: Синклитикия.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата
9) п.п. определения - нажата ли клавиша типового метода, если да - то возвращает блок кода с соответствующим методом, если нет - то возвращает NIL. Параметр функции - INKEY-код нажатой клавиши.
FUNC basemet(cod)
LOCAL ret , ei , i
LOCAL crsm:={ ;
{K_DOWN , o } ;
, {K_UP , o } ;
, {K_PGDN , o:pagedown() } ;
, {K_PGUP , o } ;
, {K_CTRL_PGDN , o:gobottom() } ;
, {K_CTRL_PGUP , } ;
, {K_RIGHT , o } ;
, {K_LEFT , o } ;
, {K_CTRL_RIGHT , o:panright() } ;
, {K_CTRL_LEFT , o:panleft() } ;
, {K_END , } ;
, {K_HOME , o } ;
, {K_CTRL_END , o } ;
, {K_CTRL_HOME , o } }
i := ASCAN( crsm, cod = ei[1] )
IF i <> 0
ret := crsm[i,2]
ELSE
ret := NIL
ENDIF
RETURN ret
10) п.п. переключения режима вставка/замена и вида курсора:
PROCEDURE Repl_Ins()
IF READINSERT()
READINSERT(.F.)
SETCURSOR(SC_INSERT)
ELSE
READINSERT(.T.)
SETCURSOR(SC_NORMAL)
ENDIF
RETURN
11) п.п. перевода в верхний регистр латиницы и кириллицы:
FUNC UpperC(prm)
LOCAL n , i , smb , cs
n := LEN( prm )
FOR i = 1 TO n
smb := SUBSTR( prm , i , 1 )
cs := ASC( smb )
DO CASE
CASE cs >= 97 .AND. cs <= 122
cs := cs - 32
prm := STUFF( prm , i , 1 , CHR( cs ) )
CASE cs >= 160 .AND. cs <= 175
cs := cs - 32
Рекомендуем скачать другие рефераты по теме: задачи с ответами, реферат на тему россия.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата