INI文件如何遍历(靓妹的问题哟在线等候)(80分)

  • 主题发起人 主题发起人 邓娟
  • 开始时间 开始时间

邓娟

Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位大哥:
我想把保存方案保存在INI文件中,但保存方案的数目不一定是多少,
在第二次启动时如何遍历把他们全部读出来???
谢谢!!!!
 
最好你还是都保存起来,用不上可以为空嘛。
要不然你就把它当文本文件处理。
最后,不要用靓妹这样的词来吸引别人回答问题。
 
你在保存的时候肯定知道保存了多少,就把这个数写到ini文件中
第二次启动时去读这个数不就可以了
 
名字也可以用變量啊
 
谢谢,最好有源程序。
但是方案有增有减,也有点复杂呀。
另外憔悴不要用怀疑一切的眼光来看问题,有时要失误的:)))[:(!]
 
TIniFile的ReadSections以及ReadSectionValues就可以了
 
用ReadSections、ReadSectionValues和ReadSection将所有的键和值读到StringList中,
然后循环遍历就是了
 
我常用的方法,INI文件格式:
[SETUP]
NUMBER=3
A0=...
B0=...
C0=...
...
A1=...
B1=...
C1=...
...
A2=...
B2=...
C2=...
...
读时先读出NUMBER值,然后移可以用一循环来一个个读出了
for i := 0 to NUMBER - 1 do
begin
...
end
 
不错不错,谁有更好的办法呀?[:(!]
 
简单说,你可以创建两个stringlist
一个放 section ,一个放value
下面是我用的一个例子(是从ini中读取所有的值,值是不固定的 ),你可以参考一下
fini:=Tinifile.Create(extractfilepath(application.exename)+'menu.ini');
s1:=Tstringlist.Create;
s2:=Tstringlist.create;
fini.ReadSections(s1);//读所有的section
for i:=0 to s1.Count-1 do
begin
aa:=treeview.Items.Add(nil,s1.Strings);
aa.ImageIndex:=0;
fini.ReadSection(s1.strings,s2);//读每个section下的value
for j:=0 to s2.Count-1 do
begin
bb:=treeview.Items.AddChild(aa,fini.ReadString(aa.Text,s2.Strings[j],''));
bb.ImageIndex:=1;
bb.EndEdit(true);
end;
end;
fini.Free;
 
看看有多亮?
傳個照片,看看.
聊天?
mymsn:dragonlee007@hotmail.com
 
从一个固定的文本文件中读出每有多少个方案,方案文件保存在哪里,内容可以象下面这样

方案1 1.ini
方案2 2.ini

这个文件的读法应该是:
var
n: string[8];
f: string[10]
begin
AsignFile(Filename, 'Filename');
Reset(Filename);
while not eof(Filename) do
begin
Readln(Filename, n, f); //n就是方案名称,f是方案保存的文件名
.......

再从1.ini 2.ini .....中读取方案信息。



 
哦?我希望我失误了:)
上面的富翁们都已经回答得很完全了,MM的魅力果然大……
 
问题解决,雪中漫步的答案对我启发比较大,另外有几个大哥也尽了力,
憔悴这个人精过头了,不行。
 
多人接受答案了。
 
噢,怎么会是精过头了呢?
我发现我其实是老实过头了,嘿嘿
 
罗晓明

1978年生人
赣南师范学院毕业
2000年8月结婚
本是教师却不喜欢教书
有点好色,并相应有些变态心理。
上大学时曾经喜欢过一个叫邓娟的大学同学。
在大富翁的名称由此而来。
相貌丑陋,却经常用“小女子”、“美女”等词语装作美女来提问,欺骗大家。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部