一个关于循环的问题，请进来看看

Question

query1.first;
for i:=1 to query1.RecordCount-1 do
begin 
//在这里记录query1指针的位置
   query1.first;
   for j:=1 to query1.RecordCount-1 do
   begin
     ......
     query1.next;
   end;
//返回指针的位置
......
query1.next;我注释的地方用什么方法可以记录query1指针的位置？

Answer 1

for i:=1 to query1.RecordCount-1 do
应该改为
for i:=0 to query1.RecordCount-1 do

Answer 2

var MyBM:TBookStr;....MyBM:=query1.Book;

Answer 3

var
  b:TBook;//声明书签变量
query1.first;
for i:=1 to query1.RecordCount-1 do
begin 
//在这里记录query1指针的位置
   b:=Query1.GetBook;//加上这句
   query1.first;
   for j:=1 to query1.RecordCount-1 do
   begin
     ......
     query1.next;
   end;
//返回指针的位置
  Query1.GotoBook(b);//加上这句
......
query1.next;

Answer 4

for i:=1 to query1.RecordCount-1 do
用代替更合适while not query1.Eof do //如果在操作中添加或删除了行,query1.RecordCount会发生变化得