注册 登录
编程论坛 Delphi论坛

怎么添加进Combox

liutianfeiyu 发布于 2007-05-28 18:56, 2985 次点击
[JlmsInfo]
清单模式=1,招标,投标
定额模式=2
清单名称=3,四川2004(清单规则),重庆2003(清单规则),北京2003(清单规则)
定额名称=4,四川2000(定额规则),四川2004(定额规则),重庆99(定额规则),北京2001(定额规则)
长度精度(m)=5
面积精度(m2)=6
体积精度(m3)=7象这样一个INI文件,我想把清单模式和清单名称以及定额名称后面的项放在三个不同的combox里,请哪个高手给个意见嘛,我做了好久老是出问题哈~不晓得是怎么的哈~谢谢哪位指教哈~
4 回复
#2
guitarnm2007-05-29 00:16
在delphi中使用INI文件要用到INI文件的打开和读取操作。如果只有你写出来的那些内容的话,建议用数据库的方式来实现。当然用INI文件的方式也能实现。如果你硬要用INI文件读取的方式,可联系我。
#3
xu20002007-05-29 01:23
楼主是哪里不知道怎么写。
Delphi中对Ini文件的操作有单独的一个类,好像是TiniFile。我记不清了,你自己查一下吧。
#4
liutianfeiyu2007-05-29 10:38
问题解决了哈,用很笨的办法解决了哈!
我分别定义几个小节,然后用函数一个一个的读哈
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);
就这样问题基本解决,但是我想有没有更好的办法啊~
#5
sgliuxiu2007-06-03 20:03

如果是我,我会用数据表

[此贴子已经被作者于2007-6-3 20:03:31编辑过]

1