Delphi如何一次删除dbgrid多条记录的例子.rar

Delphi演示如何一次删除网格数据表dbgrid中的多条记录，小技巧不过挺实用，希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考： 　　if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; 　　if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then 　　begin 　　 DBGrid1.DataSource.DataSet.DisableControls ; 　　 i:=0; 　　 While i<= DBGrid1.SelectedRows.Count -1 do 　　 begin 　　 DBGrid1.DataSource.DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i]; //重要在这里取得bookmark 　　 TempBookmark := DBGrid1.Datasource.Dataset.GetBookmark; 　　 DBGrid1.DataSource.DataSet.GotoBookmark(TempBookMark); 　　 DBGrid1.DataSource.DataSet.Delete ; 　　 DBGrid1.DataSource.DataSet.FreeBookmark (TempBookMark); 　　 Inc(i); 　　 end; 　　 DBGrid1.DataSource.DataSet.EnableControls; 　　end; 　　更多代码请您在本页面下载源码。