Эти свойства приходится использовать довольно часто, чтобы выяснить номер текущей записи или общее количество записей (строк) в таблице. RecordCount возвращает целое число, показывающее общее количество записей, а RecNo – номер текущей записи.
Давайте улучшим наш проект, указав какая запись является текущей, и каково общее количество записей. Откройте предыдущий проект. Событие onDataChange компонента DataSource возникает всякий раз, когда происходят изменения в данных таблицы. Например, перемещение от одной записи к другой. Однако, компонент Label, в который нам нужно прописать эти данные, находится в главном окне, а компонент DataSource – в окне DM. Так что придется открыть модуль DM, и использовать команду File -> Use Unit, в которой указать главное окно fMain.
Теперь выделите компонент DataSource и сгенерируйте для него событие onDataChange. В коде этого события запишем:
fMain.Label1.Caption := 'Позиция: ' +
IntToStr(Table1.RecNo) + ' из ' +
IntToStr(Table1.RecordCount);
Как видите, мы использовали оба новых свойства. В результате при загрузке программы должна получиться строка, вроде такой:
Позиция: 1 из 28
Наш "БД – Навигатор" полностью работоспособен. Можете закрыть этот проект, больше он нам не потребуется.
