Определяет, установлен ли указатель записи в начале таблицы.

BOF([nWorkArea | cTableAlias])

Параметры

nWorkArea

Задает номер рабочей области для таблицы, открытой в другой рабочей области.

cTableAlias

Задает псевдоним таблицы, открытой в другой рабочей области.

BOF( ) возвратит "ложь" (.F.).

Expand imageВозвращаемое значение

Логическое

Expand imageПримечания

Используйте функцию BOF( ) для проверки местонахождения в начале файла таблицы. BOF( ) возвращает значение "истина" (.T.), если вы пытались переместить указатель записи в позицию перед первой записью таблицы.

Expand imageПример

В данном примере открывается таблица customer и выводится постранично список наименований компаний начиная с последней записи в таблице. Листинг продолжается до достижения начала файла или до нажатия Cancel.
  CopyCode imageCopy Code
CLOSE DATABASES
CLEAR
OPEN DATABASE (HOME() + "samples\data\testdata")
USE customer
GO BOTTOM
local recCtr, btnValue
recCtr = 0
btnValue = 1
DO WHILE btnValue = 1 AND NOT BOF()
 ? "Company : " + company
 recCtr = recCtr + 1
 if (recCtr % 20) = 0 then
  btnValue =MESSAGEBOX ("Click OK to continue, Cancel to quit.",33)
  clear
 endif
 Skip -1    && Move up one record
ENDDO
=MESSAGEBOX("Listing complete.",48)

Expand imageСмотрите также