procedure TForm1.BitBtn1Click(Sender: TObject);
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;自已改装一下上面的程序就可了~~~
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;自已改装一下上面的程序就可了~~~
解决方案 »
- 谁知道哪里有免费的皮肤控件下载
- 又是TidHttp控件访问代理服务器的问题?
- 请教!dbgrideh字段显示问题??
- DELPHI能实现字符串截取功能吗?
- 初学者
- http://delphijl.99898.com
- 如何将*.Swf文件加到资源文件中。并且调用。
- 第一次来这儿问一个irc服务器和客户端的编程(有资料更好)【分不够我再注册一个】
- 轻风请进
- 再问前几天问的问题:在做delphi安装盘时,如何实现象网上的一些软件如cuteftp那样,最后就做成一个可执行文件,数据库都被包含在内。需要其它的软件吗,delphi自带的安装软件不行吗?急,请相助!
- 关于DBgrid字段显示问题的问题?在线等!!!
- 各位请推荐一本介绍ADO编程方面的书
dbgrid1.Columns[DBGrid1.SelectedIndex].FieldName).asstring);
var
s:string;
begin
s:=dbgrid1.SelectedField.AsString;
end;
var
s:string;
begin
s:=dbgrid1.SelectedField.AsString;
end;