delphi 中dataset的 bookmark的使用

procedure DemoBookMark(ADataset:TDataset)

var

    Bmrk:TBookMark;

begin

    Bmrk := ADataset.getBookMark; //获取一个书签

    ....

    ADataset.gotobookmark(Bmrk); //回到书签

    ADataset.FreeBookMark(Bmrk); //用完书要释放内存

end;