如题,请给个例子解释,谢谢!!

解决方案 »

  1.   


    var
      bk: TBook;
    begin
      if adodsVresult.Active and (adodsVresult.RecordCount > 0) then
      begin
        bk := adodsVresult.GetBook;
        //操作数据库这里
     
        if adodsVresult.BookValid(bk) then//如果标记能匹配就找到该纪录
          adodsVresult.GotoBook(bk);
      end;
    end;
      
      

  2.   

    楼上可以详细解释一下吗,tbook是不是象个指针呀?
      

  3.   

    关于书签(BookMark)操作;书签操作主要用于在表中快速地定位记录指针,在应用程序中常常要保存记录指针所在的位置,在进行其他处理之后,希望能快速地返回到先前指针所在的位置,此时,使用书签将显得特别有用。有关书签操作,Delphi提供了三个方法,它们是:● GetBookMark● GotoBookMark● FreeBokMark 这三个方法一般都是在一起使用,GetBookMark方法返回一个TBookMark类型的变量,该变量包含着指向当前记录的指针,GotoMark方法用于快速地将记录指针定位到具有书签的记录处。FreeBook方法是与GetBookMark方法相反的操作,它释放书签标志。下面的程序代码阐述了书签操作的一般方法: BookMark : TBookMark;<Do something>BookMark := Table1.GetBookMark; {对当前记录作书签标志}Table1.DisalbeControls; {切断Table1与数据察觉部件的联系}Table.FirstWhile Not EOF Do {对表中全部记录进行其他处理}begin<Do something>Tabel1.Next;end;Tabel1.GotoBookMark(BookMark) Table1.enableControls; {重新定位记录指针回到原来的位置}Tabel1.FreeBookMark(BookMark); {删除书签BookMark标志}