BDGrid如何选中多行,并且同时读出这些行各列的值?
解决方案 »
- 请高手给个例子,说明一下就是在什么情况下,用类是最合适的。。。。。
- 请教Delphi 中的 Self 究竟是什么东西?是Application,还是各单元的Form?
- 如何播放后缀名为raw的声音文件?
- 调用Shell_NotifyIcon时为什么编译器认不出来?(晚上结分)
- 谁开发过远程控制的?
- 哪里有关于Web Service的技术的网站
- tidtcpserver在事件onexecute中,同步的问题? 急!!
- 求QRExpr的返回值?
- 本人想把Delphi中的TComboBox的Ctl3D去掉,不需要显示成三维。有谁知道怎么干?
- 怎样在使用线程的时候不占用那么多系统资源?
- 一个很苯的问题,请高手教我!
- 【【【【【【【firetoucher想申请当大斑竹,希望大家发表意见】】】】】】】】】】
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;