1000分求救!!!!!!!!DBGrid多选择问题,小弟在线等,急 !!!! ( 积分: 300 )

问题：
请教富翁们如何在DBGrid多选的时候只选中符合条件的记录?不符合条件的记录出现提示后不选择?小弟在线等,急 最好详细一点说明或者有例程 小弟愚笨能否给个例程 小弟急!

主要是怎么取消选择!

如果你是初学者的话，建议多研究常见程序的操作方法，你的要求好像是自创的，不符合平常的操作习惯，估计高手不会去研究的（也可能我没有理解你的意思）。

老板要你做，你符不符合习惯都要做，正所谓，你不吃，你老婆都要吃的，你的子女都要
吃，跟老板对着干没问题，跟老板给你的钱对着干就万万不可。

我研究的初步结果：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ADOTable1BeforeScroll(DataSet: TDataSet);
procedure DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
private
{ Private declarations }
F:Boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with dbgrid1, dbgrid1.SelectedRows do
begin
if (CurrentRowSelected = true)
and (DataSource.Dataset.FieldValues['name'] = '烙铁') //询问条件
and (MessageDlg('你是否选择“烙铁”？', mtConfirmation, [mbYes, mbNo], 0) = mrNo) //询问过程
then
CurrentRowSelected := False;
end;
end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with dbgrid1, dbgrid1.SelectedRows do
begin
if (F = true)
and (DataSource.Dataset.FieldValues['name'] = '烙铁') //询问条件
and (MessageDlg('你是否选择“烙铁”？', mtConfirmation, [mbYes, mbNo], 0) = mrNo) //询问过程
then
CurrentRowSelected :=false;
end;
end;

procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
begin
F:=dbgrid1.SelectedRows.CurrentRowSelected;
end;

end.

在确定按钮的代码中，用循环来判断已选择的行是否符合条件，不符合条件的不去处理

接受答案了.