请问一下Delphi读取ini的问题 ( 积分: 50 )

第一,ini可不可以是下面这种情况?&nbsp;<br>[user1]&nbsp;<br>password=power12&nbsp;<br>password=power1&nbsp;<br>password=po&nbsp;<br>password=025&nbsp;<br>第二如果可以的话,那为什么用&nbsp;<br>myinifile.Readstring('小节名','关键字',缺省值);&nbsp;<br>只能读去到第一个值?请问一下用什么方法可以解决?

第一，&nbsp;可以<br><br><br>应该以字符串来读取试试

当然只能读取第一个，否则怎么知道你要读取哪一个？<br>应该：<br>[user1]&nbsp;<br>password1=power12&nbsp;<br>password2=power1&nbsp;<br>password3=po&nbsp;<br>password4=025

TO:yjwnnit<br>能不能说明白点,怎么做,我菜鸟一个刚学着,还有很多不懂的.,myinifile.Readstring('小节名','关键字',缺省值)不就是字符串的吗?

你为什么要取名一样的&nbsp;PASSWORD&nbsp;呀？&nbsp;&nbsp;这样系统哪会认得出你要的是哪个？

不能用myinifile.Readstring改函数，用文本文件读取方式，加循环判断就可以了。

TO:kaida,<br>我要的就是VS=:myinifile.Readstring('小节名','关键字',缺省值);&nbsp;<br>而VS有多种情况,<br>VS=power12<br>VS=power1<br>VS=po&nbsp;<br>VS=025<br>这样子应该怎么去做?

TO:sy_why<br>能不能举例一下,谢谢,我是太菜了,所以不懂哦.

来人啊.

procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;ini:&nbsp;TIniFile;<br>&nbsp;&nbsp;sl:&nbsp;TStringList;<br>&nbsp;&nbsp;i:&nbsp;integer;<br>begin<br>&nbsp;&nbsp;sl:=&nbsp;TStringList.Create;<br>&nbsp;&nbsp;ini&nbsp;:=&nbsp;TIniFile.Create('MyIni.ini');<br>&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;ini.ReadSectionValues('user1',sl);<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;I&nbsp;:=&nbsp;0&nbsp;to&nbsp;sl.Count&nbsp;-&nbsp;1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;。。。（sl[0]&nbsp;-&gt;&nbsp;password=power12）<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;。。。（sl[1]&nbsp;-&gt;&nbsp;password=power1&nbsp;）<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;。。。（sl[2]&nbsp;-&gt;&nbsp;password=po&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;）&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;。。。<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;finally<br>&nbsp;&nbsp;&nbsp;&nbsp;ini.Free;<br>&nbsp;&nbsp;&nbsp;&nbsp;sl.Free;<br>&nbsp;&nbsp;end;<br>end;

谢谢

多人接受答案了。

var<br>&nbsp;&nbsp;ini&nbsp;:&nbsp;TIniFile;<br>&nbsp;&nbsp;sl&nbsp;&nbsp;:&nbsp;TStringList;<br>&nbsp;&nbsp;s&nbsp;&nbsp;&nbsp;:&nbsp;string;<br><br><br>ini&nbsp;:=&nbsp;TIniFile.Create('MyIni.ini');<br>sl&nbsp;&nbsp;:=&nbsp;TStringList.Create;<br>repeat<br>&nbsp;&nbsp;s&nbsp;:=&nbsp;ini..ReadString('user1','password','');<br>&nbsp;&nbsp;sl.Add(s);<br>&nbsp;&nbsp;ini.DeleteKey('user1','password');<br>until&nbsp;s&nbsp;=&nbsp;'';