如何一次读出ini文件中所有小节中的内容(能循环读出来吗)?(50分)

H

hly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #1

ini文件如下:
[1]
0=0
1=1
[2]
0=0
2=2

[3]
0=0
3=3
.
.
.
[1000]
0=0
1000=1000
而且这个小节是不固定的,客户自己可以按照格式添加和删除小节和其中的内容.
也就是我无法知道ini文件中小节的总数,循环读取好像不行,不知道大家有什么高招!

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #2

var
F: TIniFile;
begin
......
F.ReadSection();
F.ReadSections();
end;

 

H

hly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #3

to liyinwei
你写的这个谁都知道，不能解决根本问题啊
我怎么知道我要写多少个 F.ReadSection();
的语句呢
晕
还是等待高手发个话吧

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #4

先 ReadSections 把所有的节都读出来，然后根据读入内容逐个 ReadSection 不
就可以了？

 

深

深邃眼眸

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #5

你可以这样啊.
先用f.ReadSections(ListBox1.Items);读到listbox1.items;

然后用ListBox1.Items.Count不就可以得到多少个了么

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-01

• #6

楼主实在要我写代码出来就写吧。

procedure TForm1.Button1Click(Sender: TObject);
var
F: TIniFile;
i: Integer;
sSection: String;
sList: TStringList;
begin
F := TIniFile.Create('c:/1.ini');
sList := TStringList.Create;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
try
//获得所有小节的列表
F.ReadSections(Memo1.Lines);
for i := 0 to Memo1.Lines.Count - 1 do begin
sList.Clear;
sSection := Memo1.Lines;
//获得每个小节的数据列表
F.ReadSection(sSection,sList);
Memo2.Lines.Add('[' + sSection + ']');
Memo2.Lines.AddStrings(sList);
//获得每个小节的数据的值列表
F.ReadSectionValues(sSection,sList);
Memo3.Lines.Add('[' + sSection + ']');
Memo3.Lines.AddStrings(sList);
end;
finally
sList.Free;
F.Free;
end;
end;

 

H

hly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-02

• #7

8年没写过程序了，现在自己写个小程序，都有点难了，还好，有这么多热心的人
谢谢大家