| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2969 人关注过本帖
标题:怎么添加进Combox
取消只看楼主 加入收藏
liutianfeiyu
Rank: 1
等 级:新手上路
帖 子:51
专家分:0
注 册:2006-12-20
收藏
 问题点数:0 回复次数:1 
怎么添加进Combox
[JlmsInfo]
清单模式=1,招标,投标
定额模式=2
清单名称=3,四川2004(清单规则),重庆2003(清单规则),北京2003(清单规则)
定额名称=4,四川2000(定额规则),四川2004(定额规则),重庆99(定额规则),北京2001(定额规则)
长度精度(m)=5
面积精度(m2)=6
体积精度(m3)=7象这样一个INI文件,我想把清单模式和清单名称以及定额名称后面的项放在三个不同的combox里,请哪个高手给个意见嘛,我做了好久老是出问题哈~不晓得是怎么的哈~谢谢哪位指教哈~
搜索更多相关主题的帖子: 定额 四川 重庆 北京 Combox 
2007-05-28 18:56
liutianfeiyu
Rank: 1
等 级:新手上路
帖 子:51
专家分:0
注 册:2006-12-20
收藏
得分:0 
问题解决了哈,用很笨的办法解决了哈!
我分别定义几个小节,然后用函数一个一个的读哈
procedure ReadQDMSini(AItems : Tstrings;S : string);
var
i : integer;
begin
AItems.Clear;
AItems.Delimiter := ',';
AItems.DelimitedText := S;
if AItems.Count > 0 then begin
cbbQD.Items.AddStrings(AItems);
end;
end;
ss := TStringList.Create;
SS1 := TStringList.Create;
SysIni.OpenFile(SysDir.System + 'JlmsInfo.Def');
i := 0;
try
SysIni.ReadSection('QDMS', ss);
s1 := SysIni.ReadString('QDMS', ss[i], '');
ReadQDMSIni(SS1,S1);
就这样问题基本解决,但是我想有没有更好的办法啊~
2007-05-29 10:38
快速回复:怎么添加进Combox
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015555 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved