DELPHI BOOKMARK使用

关于书签(BookMark)操作；       书签操作主要用于在表中快速地定位记录指针，在应用程序中常常要保存记录指针所在的位置，在进行其他处理之后，希望能快速地返回到先前指针所在的位置，此时，使用书签将显得特别有用。有关书签操作，Delphi提供了三个方法，它们是： 

    ●   GetBookMark

    ●   GotoBookMark

    ●   FreeBokMark  

这三个方法一般都是在一起使用，GetBookMark方法返回一个TBookMark类型的变量，该变量包含着指向当前记录的指针，GotoMark方法用于快速地将记录指针定位到具有书签的记录处。FreeBookmark方法是与GetBookMark方法相反的操作，它释放书签标志。下面的程序代码阐述了书签操作的一般方法：

      BookMark   :   TBookMark;

      BookMark   :=   Table1.GetBookMark;   {对当前记录作书签标志}

      Table1.DisableControls;   {切断Table1与数据察觉部件的联系...下面有其使用解说} 

  Table.First

  While   Not   EOF   Do   {对表中全部记录进行其他处理}       begin  
      Tabel1.Next;

  end;   
Tabel1.GotoBookMark(BookMark)

Table1.EnableControls;   {重新定位记录指针回到原来的位置}

     Tabel1.FreeBookMark(BookMark);   {删除书签BookMark标志}　

 

-- - - - - - - - -