如题

解决方案 »

  1.   

    用book
    with DBGrid1.DataSource.DataSet do
        begin
          for i := 0 to DBGrid1.SelectedRows.Count-1 do
          begin
            GotoBook(Pointer(DBGrid1.SelectedRows.Items[i]));
             dosomething;
          end;
        end;
      

  2.   

    booklist : TBookList;
    begin  booklist := DBGrid.SelectedRows;
        if booklist.Count > 0 then
        begin
          for  I := 0 to booklist.Count-1  do
          begin
            Q_Query.Book := booklist[i];
            Q_Query.Delete; 
          end;
        end