Переход на следующую запись таблицы с использованием RecNo

@aimk0 · Регистрация: 18.04.2010

Студворк — интернет-сервис помощи студентам

Всем привет. Появилась проблема с переходом на следующую запись в таблице, переход осуществляю с помощью функции RecNo след. образом

Delphi
1
dm2.qr_raz72_rs1_3.RecNo:=dm2.qr_raz72_rs1_3.RecNo+cont;

на след строку не переходит. Хотя например, если написать в обработчике кнопки онклик table1.RecNo:=Table1.RecNo+1; все будет работать.
На всякий случай прилагаю часть кода:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var dse:string;
     i, cont: integer;
begin
 
for i:=0 to dm2.Query1.RecordCount-1 do
begin
 dm2.tb_razuz.Close;
 dm2.tb_razuz.EmptyTable;
 dm2.tb_razuz.Open;
 
 Sborki(dm2.Query1DSE.AsString,1);
 
 if dse<>dm2.qr_raz72_rs1_3DSE.AsString then begin cont:=0; showmessage('dse<>dm2'); end;
 dse:=dm2.Query1DSE.AsString;
 
dm2.qr_raz72_rs1_3.Locate('DSE', dm2.Query1DSE.AsString, []);
 
 if dse=dm2.qr_raz72_rs1_3DSE.AsString then
 begin
   dm2.qr_raz72_rs1_3.RecNo:=dm2.qr_raz72_rs1_3.RecNo+cont;
   showmessage('cont='+floattostr(cont)); showmessage('RecNo='+floattostr(dm2.qr_raz72_rs1_3.RecNo));
   inc(cont);
   showmessage('DSE=dm2');
 end;
 
dm2.Query1.Next;
end;

Кто что может подсказать по этому поводу? или какие-нибудь альтернативы функции RecNo

@Lord_Voodoo · 30.11.2010, 09:55

aimk0, RecNo реализовано корректно только для Парадокса... для других баз существует масса ситуаций, когда этот указатель будет работать некорректно... переходы можно осуществлять с помощью функций First, Last, Next, Prior (при использовании фильтра еще можно использовать FindFirst, FindLast, FindNext, FindPrior)

@Mad_Dog · 30.11.2010, 10:59

Переход на произвольную запись можно осуществлять еще с помощью MoveBy(). Переход осуществляется относительно текущей записи RecNo...

@Lord_Voodoo · 30.11.2010, 11:15

Mad_Dog, а подскажите-ка мне, куда будет скакать указатель при разных индексах? вы можете с уверенностью сказать, что это будет та же запись?

@Mad_Dog · 30.11.2010, 11:44

Lord_Voodoo, что значит "та же запись"? Если я выполню MoveBy(1), то курсор в DataSet перейдет на RecNo+1, где RecNo - позиция до перехода. Если выполнить MoveBy(-1), то курсор установится на RecNo-1...

@Lord_Voodoo · 30.11.2010, 12:21

Mad_Dog, только есть одна проблема: при использовании индексов (к примеру в дбф-файлах) это могут быть совсем разные записи... следовательно, алгоритмы, построенные на Recno не для парадокса, могут привести к очень занимательным последствиям... в общем, не нужно использовать это свойство не по назначению...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2010, 09:55
	aimk0, RecNo реализовано корректно только для Парадокса... для других баз существует масса ситуаций, когда этот указатель будет работать некорректно... переходы можно осуществлять с помощью функций First, Last, Next, Prior (при использовании фильтра еще можно использовать FindFirst, FindLast, FindNext, FindPrior) 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	30.11.2010, 10:59
	Переход на произвольную запись можно осуществлять еще с помощью MoveBy(). Переход осуществляется относительно текущей записи RecNo... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2010, 11:15
	Mad_Dog, а подскажите-ка мне, куда будет скакать указатель при разных индексах? вы можете с уверенностью сказать, что это будет та же запись? 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	30.11.2010, 11:44
	Lord_Voodoo, что значит "та же запись"? Если я выполню MoveBy(1), то курсор в DataSet перейдет на RecNo+1, где RecNo - позиция до перехода. Если выполнить MoveBy(-1), то курсор установится на RecNo-1... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2010, 12:21
	Mad_Dog, только есть одна проблема: при использовании индексов (к примеру в дбф-файлах) это могут быть совсем разные записи... следовательно, алгоритмы, построенные на Recno не для парадокса, могут привести к очень занимательным последствиям... в общем, не нужно использовать это свойство не по назначению... 0