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

liujiuhua 2008-01-03 11:28:41
如文件名为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= 要怎样增加请高手指点
...全文
67 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
雪狼__ 2008-01-04
读写ini文件,是以[] 括号来区分段落的;
1楼说的已经足够了
回复
ljq900 2008-01-04
似乎不能再简单了
回复
trainbox 2008-01-04
送分贴
回复
moklee 2008-01-03

//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', '');


回复
moklee 2008-01-03
晕,注释也够详细了吧,给你的代码还不懂吗???
回复
liujiuhua 2008-01-03
up
回复
liujiuhua 2008-01-03
大家UP呀
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1566

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告