Вытаскивать FieldByName('Кod').AsInteger
переход bbb:=Locate('Kod','Значение ключа', [])
если bbb = false значит такое значение не найдено.
Если у вас RecNo и RecordCount правильно работают (что не факт) то возможен такой алгоритм.
Находите случайное число Rnd в диапазоне от 1 до RecordCount
Rnd2:=Rnd - Recno
Делаете Next Rn2 раз (в цикле).
|