频道分类

Delphi unigrid记录check遍历

作者:admin 来源: 日期:2019/10/22 20:39:40 人气: 标签:

 
procedure TMainForm.UniButton2Click(Sender: TObject);

var
 iIdx:integer;
 bmbh:string;
begin


  for iIdx := 0 to UniDBGrid1.SelectedRows.Count - 1 do
  begin

   UniDBGrid1.DataSource.DataSet.Bookmark := UniDBGrid1.SelectedRows[iIdx];
   bmbh:= UniDBGrid1.DataSource.DataSet.FieldByName('nm').AsString;

  end;

end;
————————————————

原文链接:https://blog.csdn.net/ozhy111/article/details/87606614