self.rgfeldname.Items.Clear ;
for icount:=0 to datamodule1.ADODataSet1.fields.Count-1 do
begin
self.rgfeldname.Items.Add(datamodule1.ADODataSet1.Fields[icount].DisplayLabel);
end;
self.rgfeldname.ItemIndex:=0;
看一下上面的代码
for icount:=0 to datamodule1.ADODataSet1.fields.Count-1 do
begin
self.rgfeldname.Items.Add(datamodule1.ADODataSet1.Fields[icount].DisplayLabel);
end;
self.rgfeldname.ItemIndex:=0;
看一下上面的代码
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货