本文整理自网络,侵删。
把当前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;
相关阅读 >>
Delphi firemonkey在画布上绘制 imagelist图像
windows api 的数据类型与 Delphi 数据类型对照表
更多相关阅读请进入《Delphi》频道 >>