本文整理自网络,侵删。
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
相关阅读 >>
Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber
Delphi windows 编程[7] - wm_create 消息
Delphi tadodataset 加载数据到fdmemtable1
更多相关阅读请进入《Delphi》频道 >>