Delphi實現DBGrid全選和反選功能

Delphi實現Dbgrid全選和反選、清除全選的功能，不管是在Delphi下，還是在web開發中，這種功能都是很實用的，是進行數據批量操作的基礎。本模塊就是實現了為Delphi的DBGrid數據列表增加全選內容、清除全選的功能，很實用了，代碼內容如下：

vIEw source print? 01 //全選 02 procedure TFrameCustSelector.ToolButton1Click(Sender: TObject); 03 var 04   OldCurrent: TBookmark; 05 begin 06   OldCurrent := DBGrid1.DataSource.DataSet.Bookmark; 07   DBGrid1.DataSource.DataSet.DisableControls; 08   DBGrid1.DataSource.DataSet.First ; 09   while not DBGrid1.DataSource.DataSet.Eof do begin 10     DBGrid1.SelectedRows.CurrentRowSelected := true; 11     DBGrid1.DataSource.DataSet.Next; 12   end; 13   DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent); 14   DBGrid1.DataSource.DataSet.EnableControls; 15 end; 16 //清除全選 17 procedure TFrameCustSelector.ToolButton2Click(Sender: TObject); 18 var 19   OldCurrent: TBookmark; 20 begin 21   OldCurrent := DBGrid1.DataSource.DataSet.Bookmark; 22   DBGrid1.DataSource.DataSet.DisableControls; 23   DBGrid1.DataSource.DataSet.First ; 24   while not DBGrid1.DataSource.DataSet.Eof do begin 25     DBGrid1.SelectedRows.CurrentRowSelected := False; 26     DBGrid1.DataSource.DataSet.Next; 27   end; 28   DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent); 29   DBGrid1.DataSource.DataSet.EnableControls; 30 end; 31 //反選 32 procedure TFrameCustSelector.ToolButton3Click(Sender: TObject); 33 var 34 OldCurrent: TBookmark; 35 begin 36   OldCurrent := DBGrid1.DataSource.DataSet.Bookmark; 37   DBGrid1.DataSource.DataSet.DisableControls; 38   DBGrid1.DataSource.DataSet.First ; 39   while not DBGrid1.DataSource.DataSet.Eof do begin 40     DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected; 41     DBGrid1.DataSource.DataSet.Next; 42   end; 43   DBGrid1.DataSource.DataSet.GotoBookmark(OldCurrent); 44   DBGrid1.DataSource.DataSet.EnableControls; 45 end;