Форум » [x]Harbour » Index on EVAL » Ответить
Index on EVAL
Dima: Index on ndok to tmp eval test() Фунция Test (бегунок) отлично пахал в Clipper SIX А в Harbour не пашет. При первом вызове TEST , bof() и eof() равны .F. , в то время как в SIX bof() равнялся .T. и можно было запомнить состояние экрана и нарисовать картинку для бегунка , так как срабатывало 1 раз Что то я потерялся ;) Занимаюсь переводом своей проги с Clipper на Harbour
Ответов - 4
Dima: Разобрался ;) Dima пишет: При первом вызове TEST , bof() и eof() равны .F. , в то время как в SIX bof() равнялся .T. и можно было запомнить состояние экрана Было if bof() что то рисуем и запоминаем endif Стало IF !bof() .and. !eof() .and. nrecs==0 что то рисуем и запоминаем где nrecs:=DbOrderInfo(DBOI_KEYSINCLUDED) ENDIF
Dima: Пытаюсь в функции test предложения eval получить имя индексного файла. Делал по разному DborderInfo(DBOI_FULLPATH) DborderInfo(DBOI_INDEXNAME) DborderInfo(DBOI_BAGPATH) везде возврат пустая строка что не так делаю ?
AlexMyr: Dima пишет: Пытаюсь в функции test предложения eval получить имя индексного файла. dborderInfo(DBOI_I_BAGNAME)
Dima: AlexMyr пишет: dborderInfo(DBOI_I_BAGNAME) Да так работает. Спасибо !
полная версия страницы