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;