DBGrid with MultiSelect

发现在delphi.about.com上看了不少实用的方法，但很快就忘记了。还是自己做一些筛选以及记录，好让日后查找方便

http://delphi.about.com/od/usedbvcl/l/aa032503a.htm

dbgrid1.options:=dbgrid1.options+dgMultiSelect;//allow MultiSelect
..

If DbGrid1.selectrows>0 the
begin
  with DBGrid1.datasource.dataset do
     begin
        for i:=0 to DBGrid1.selectrows.count-1 do
         begin
          gotobookmark(Pointer(DBGrid1.selectrows.items[i]));//use gotobookmark
          //do.
         end;
     end;  
end;