ehlib ado 删除选中记录 的方法

procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin

  for I := DBGridEh1.SelectedRows.Count - 1 downto 0 do

  begin DBGridEh1.DataSource.DataSet.Bookmark := DBGridEh1.SelectedRows[I]; DBGridEh1.SelectedRows.DeleteItem(I);
//必须先删除书签，再删除记录，否则全部删除时，会报错。
//如果没有删除书签的代码行，数据集和GRID里记录和行是删除了，但是SelectedRows里会残留一个无效书签，导致后面判断出错。

  ADOTable1.DeleteRecords(arCurrent); 

 end; 

end;