procedure DemoBookMark(ADataset:TDataset)
var
Bmrk:TBookMark;
begin
Bmrk := ADataset.getBookMark; //获取一个书签
....
ADataset.gotobookmark(Bmrk); //回到书签
ADataset.FreeBookMark(Bmrk); //用完书要释放内存
end;
procedure DemoBookMark(ADataset:TDataset)
var
Bmrk:TBookMark;
begin
Bmrk := ADataset.getBookMark; //获取一个书签
....
ADataset.gotobookmark(Bmrk); //回到书签
ADataset.FreeBookMark(Bmrk); //用完书要释放内存
end;