dbgrid里面的记录循环

Question

一个dbgrid是允许复选的,然后要根据DBGRID里面的记录进行循环,如果被选种就执行一段操作,请问这个循环该如何写?DBGRID的数据来源是一个query控件

Answer 1

with query1 do
begin
first;
for i:=0 to recordcount-1 do
begin
if fieldvalue('abc')='xxx' then //进行判断
begin
..... //执行你的操作
end;
next;
end;
end;

Answer 2

谢谢,不过我想你理解错我的意思了,DBGRID是可以复选,我是要取得在DBGRID中被选种的那些记录在数据库里面的相应记录,比如 
if dbgrid1.row[i].select then  //假设有这样的属性,其实没有:(
  begin
    //我的操作
  end;
  query1.next;
  dbgrid1.next; //假设有这样的属性

Answer 3

for i := 0 to DBGrid.SelectedRows.Count - 1 do
        begin
           Query.GotoBook(pointer(DBGrid.SelectedRows.Items[i]));
            ....
        end;

Answer 4

这是D5自带帮助：
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;