Реферат: Реализация алгоритма обработки данных

SETCOLOR("gr+/rb")

** ожидаем нажатия клавиши

nkey := Inkey(0)

// если нажата клавиша типового метода - вызовем его

blk := basemet( nKey )

IF blk <> NIL

EVAL( blk , brws )

ELSE

DO CASE

CASE ( bHotkey := SETKEY( nKey ) ) <> NIL

EVAL( bHotkey , PROCNAME() , PROCLINE() , READVAR() )

CASE ( nKey = K_F8 )

DELETE

// потрогаем файловый указатель, если

// возвращаетя EOF() - .T. после Down-Up,

// значит файл пуст

SKIP

SKIP -1

IF RECNO() = RECCOUNT()+1

ret_fl := .T. // завершение просмотра

ENDIF

brws:RefreshAll()

nrc := 0

CASE nKey = K_ESC

ret_fl := .T. // завершение просмотра

CASE ( nKey = K_ENTER )

// Редактирование текущего элемента данных

aaGet(brws ;

, " Редактирование файла aa.dbf" )