Счетчик в Делфи

[Дмитрий Гриб]

Уважаемые друзья подскажите пожалуйста что делать.
Может быть вопрос и не очень серьезный, но для меня очень важный.
Есть база данных. Я хочу сделать в ней еще одно поле , которое выполняло бы роль счетчика записей по порядку. Всего допустим 300 записей.. после сортировки осталось 5. Поле должно присвоить им 1, 2...5. И так для всех записей при любой сортировке, будь там 300 записей или одна. Допустим поле называется Nomer, как сделать чтоб оно работало?
Заранее большое СПАСИБО!

[Stilet]

А зачем? У каждой записи в наборе все равно есть номер (физический номер записи).
Впрочем можно просто вычисляемое поле присобачить с этим номером...

[Neeter]

Создайте новое вычисляемое поле в таблице, где вы хотите сделать счетчик, типа integer. (для этого: двойной клик по таблице, в контекстном меню выберите New Filed... В поле Name введите Number, тип выберите integer, и нажмите на радиокнопку Calculated)
Потом скопируйте у созданного поля имя (свойство Name) в буфер обмена.
Дальше у таблицы создайте обработчик события onCalcFields.
И там пропишите:

procedure TDataModule2.tb_ZvonkiCalcFields(DataSet: TDataSet);
begin
 if DataSet.RecNo = -1 then <имя поля>.Value := 1   //первая запись иногда -1 равна
 else <имя поля>.Value := DataSet.RecNo;
end;