[marales]

1 Как в переменную записать номер текущей записи в Ado?
2 Как перейти на случайную запись при нажатии кнопки на форме(рандомно)?

[Viajero]

Если вы бы изучали теорию бд, то знали бы, что таблицы реляционных бд не имеют номеров записей, но можно создать поле (суррогатный ключ) и хранить там номера
см также ответ на пред тему
http://www.delphisources.ru/forum/sh...ad.php?t=18120

[marales]

а разве он внутри не хранит ничего! если мы переходим на первую строчку он же знает что она первая строчка или нулевая я точно не знаю.

[Viajero]

если мы переходим на первую строчку

Первую строчку в датасете. Если мы сделаем Refresh то порядок следования строк в общем случае может поменяться, в том числе и первая строка

[marales]

понятно! ну создал я поле с именем kod там номер строчки типо того счетчик, а теперь вытаскивать как с переходом

[Viajero]

Вытаскивать FieldByName('Кod').AsInteger
переход bbb:=Locate('Kod','Значение ключа', [])
если bbb = false значит такое значение не найдено.

Если у вас RecNo и RecordCount правильно работают (что не факт) то возможен такой алгоритм.
Находите случайное число Rnd в диапазоне от 1 до RecordCount
Rnd2:=Rnd - Recno
Делаете Next Rn2 раз (в цикле).

[marales]

Сообщение от Viajero

Вытаскивать FieldByName('Кod').AsInteger
переход bbb:=Locate('Kod','Значение ключа', [])
если bbb = false значит такое значение не найдено.

вот это помогло, спасибо!