Delphi - DBGrid

Hola!!!.....

Estoy trabajando con un dbgrid, lo que hago es mostrar datos de una consulta en un DBGrid..... elimino un registro seleccionado, ya lo hago con el afterscroll....... pero mi GRAN DUDA es como elimino varios registros de una consulta, por ejemplo son 10 registros, selecciono 5 registros y esos registros eliminarlos de un jalon, se puede hacer? ya lo hago de uno en uno, pero quiero hacerlo en grupos...Como puede seleccionar en un dbgrid varios datos o registros y eliminarlos......
espero me puedan auxiliar


Gracias de antemano

Prueba usando este codigo, que esta en la pagina q3.nu/trucomania
if DBGrid1.SelectedRows.Count>0 then
if messagebox(self.Handle,pchar('Está seguro
que desea eliminar los registros
seleccionados?'),'Borrar',MB_ICONQUESTION +
MB_YESNO)=IDYES 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;

Creo que debes de refrescar la tabla despues de realizar la operacion, para evitar posibles errores

Hola!!!!!!!!

Te agradezco la ayuda, ya me quedo el show que traia


Saludos

Prueba con el siguiente codigo: nesecitas una variable i para el contador

if Application.MessageBox('¿Está seguro que desea eliminar la selección?','Confirmación',MB_YESNO + MB_ICONQUESTION) = mrYes then
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
fmaint.Table1.Delete;
end;
end
else
Table1.Delete;
end;

como inserto datos en un dbgrind y guardarlos en una base de datos