Последовательная навигация по записям

Для выполнения действий по последовательному перебору записей, начиная от стартовой записи и до конца НД, используют цикл while...do или repeat...until.

Пусть НД представлен запросом quBooks (аналогично таблицей tbBooks). Для программного доступа ко всем записям этого НД может использоваться следующий вариант набора операторов:

quBooks.Open;

…

while notquBooks.EOF do begin

//Какие-либо действия над очередной записью, например

//заполняется компонент lbBooks типа TListBox

lbBooks.Items.Add(DM.quBooksbName.AsString); //объект-поле

//quBooksbName

quBooks.Next; // Переход к следующей записи

end;

…

quBooks.Close //закрытие таблицы

Другой вариант набора операторов программного доступа ко всем записям НД quBooks:

quBooks.Open; // открытие таблицы

…

ifnotquBooks.IsEmpty then // проверка набора на непустоту