读文件内容与写文件件内容

Question

如文件名为MSIC.INI 内容如下
[CONFIG]
MEDIA=1
ISWAN=0
COMPORT=1
[1]
NAME=1
IP=172.25.10.4
PORT=3001
PHONE=
[2]
NAME=2
IP=172.25.10.3
PORT=3001
PHONE=
[3]
NAME=3
IP=172.25.10.2
PORT=3001
PHONE=
怎么把里面的NAME,IP,PORT,PHONE读出来.
同时我想按上面规格增加NAME=4,IP=172.25.10.1,PORT=3001,PHONE= 要怎样增加请高手指点

Answer 1

//uses 添加这个IniFiles
uses IniFiles;//声明变量
var
    PWDFile:TIniFile;//注意filename 为路径+文件名
Filename:=ExtractFilePath(Paramstr(0))+'MSIC.INI';
//此时Filename为你的 可执行文件所在目录 + 'MSIC.INI'
PWDFile:=TIniFile.Create(Filename);//下面是读[1]的NAME,IP,PORT,PHONE，其他的类似。
Edit1.Text:=PWDFile.ReadString('1','NAME','');
Edit2.Text:=PWDFile.ReadString('1','IP','');
Edit3.Text:=PWDFile.ReadString('1','PORT','');
Edit4.Text:=PWDFile.ReadString('1','PHONE','');//下面是写[4]的NAME,IP,PORT,PHONE，其他的类似。
PWDFile.WriteString('4', 'NAME', '4');
PWDFile.WriteString('4', 'IP', '172.25.10.1');
PWDFile.WriteString('4', 'PORT', '3001');
PWDFile.WriteString('4', 'PHONE', '');

Answer 2

读写ini文件,是以[] 括号来区分段落的;
1楼说的已经足够了