Varijanta 1
Code:
DBGrid1.SelectedRows.Delete;
Varijanta 2
Code:
var
I: Integer;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for I := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[I]));
Delete;
end;
end;