InI File.........(50分)

飞

飞来石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #1

如何用TIniFile得到一个ini文件的所有section，并输出到listbox中.比如：
[Text]
A=..
B=..
C=..
如何将其中的“A”，“B”，“C”得到并在listbox中显示出来?

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #2

ini文件你也可以把它当文本来看，因此用文本文件的读写方式对他也是
有效的，因此。。。。
用Readln函数就可以了，然后取出每个存在“=”的行中第一个“=”
出现前的东西就是你要的

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #3

读入：
inifile:=Tinifile.create(Extractfilepath(application.exename)+'setup.ini');
status:=inifile.readinteger('text','status',0);
if status<>0 then
begin
a:=inifile.readinteger('text','a',a);
b:=inifile.readinteger('text','b',b);
c:=inifile.readstring('text','c',c);
end;
输出：
还是别人来打吧

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #4

都答的什么呀，影子？？
var

F: TextFile;
S: string;

AssignFile(F, iniFileName); {//打开文本文件，这里是你的你ini文件}
Reset(F); //到头
Readln(F, S); //读取第一行（是一整行）
ListBox1.Items.add( S); { 整行加到listbox }
CloseFile(F); //最后关掉

程序中少等号的判断和循环读取，这自己加没问题吧

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #5

或者这样
var
MyIniFile: TIniFile;
。。。。。

MyIniFile := TIniFile.Create('d:/win.ini'); //你的ini文件
Memo1.Clear;
MyIniFile.ReadSectionValues('Texe', Memo1.Lines); //Text 是你的section
//然后判断么memo1种行的情况
MyIniFile.Free;

 

飞

飞来石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #6

多人接受答案了。