第一个问题可以看下一例子 var i:integer; b:Tbookmark; begin for i:=0 to dbgrid1.SelectedRows.Count-1 do begin b:=pointer(dbgrid1.SelectedRows.Items[i]); table1.GotoBookmark(b); messagedlg(table1.fieldbyname('name').AsString ,mtinformation,[mbok],0); end;
例子可改一下 var i:integer; b:Tbookmark; begin for i:=0 to d.SelectedRows.Count-1 do begin b:=pointer(d.SelectedRows.Items[i]); table1.GotoBookmark(b); table1.Delete; end;