RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

delphi-dbgrid取得所有表中的值

作者:admin 来源: 日期:2019/5/30 15:08:03 人气: 标签:

把当前dbgrid的值的第一个值(id)全部写到了一个tstringlist了

 

var tlist:TStringlist;

s_tmp:string;
icount,i:integer;
begin
tlist:=TStringlist.Create;
icount:=TStringGrid(DBGrid1).RowCount-1;
with dbgrid1.datasource.dataset do
begin
for i := 0 to icount -1 do
begin
recno:=i+1;
s_tmp:=DBGrid1.Fields[0].DisplayText;
tlist.Add(s_tmp);
end;
end;
result.Text:=tlist.Text;
tlist.Free;

 

 

 

 


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: