在线等待... TBookMarkStr的使用？

Question

为了在一个表中删除记录后，能返回原来的位置（准确的说是上一记录），我使用了
TBookMarkStr(没用BookMark,GetBookMark,GotoBookMark,FreeBookMark,因为《新概念delphi6.0教程》上说在稳定性和方便性上不行)，代码如下：
   
    datat.unittable1.Delete;
    //datat.UnitTable1.Prior;
    bm:=datat.UnitTable1.Book;
    datat.UnitTable1.Close;
    datat.UnitTable1.Open;
    datat.UnitTable1.Book:=bm;
    speedbutton3.Enabled:=true;现在问题是：在删除一般记录是很爽， 但在删除最后一条记录时，出现错误：
'Grid index out of range',意思是索引出界了，可我不知怎么解决，加了‘datat.unittable1.prior’后，就多上移了一条记录，不爽！请高手赐教！！！
在线等待.......................................................

Answer 1

你没有使用BookMark而使用TBookMarkStr类型？呵呵，数据集的BookMark属性的类型就是TBookMarkStr类型，所以你还是在使用BookMark属性！with DataT.UnitTable1 do 
begin
  Delete;  //如果删除的是最后一条，则当前记录跑到删除后记录集的最后一条上  
  //如果这里你加上Prior，自然就跑到当前记录集的倒数第二条上了
  BM:=Book;
  Close;
  Open;
  Book:=BM;
end;