Delphi读写ini文件示例

Delphi读写ini文件示例

*.ini文件，一般用作程序的配置文件，Delphi提供了TIniFile类方便这种文件的读写。

打开Delphi7集成开发环境，默认新建Project1工程，保存源代码文件及工程文件到指定文件夹，F9运行程序，在程序Project1.exe的同级目录内，新建test.ini文件，并填写内容如下：

[MYSEC]

MYKEY=myValue

在默认的Unit1.pas文件头部，首先要引用IniFiles单元：use IniFiles；在Form1窗体上添加Button1按钮，Edit1文本框。

我们先尝试读取test.ini中的内容，在Button1的响应函数内容。

procedure TForm1.Button1Click(Sender: TObject);

var

iniFile:TInifile ;

begin

iniFile:=TIniFile.Create(ExtractFilePath(Paramstr(0)) + 'test.ini');

edit1.Text:=iniFile.ReadString('MYSEC','MYKEY','缺省值');

end;

解释一下：

Paramstr(0)代表了当前运行的exe 文件的绝对路径.例 D:\Delphi\project1.exe

ExtractFilePath(ParamStr(0)处理完后变成：D:\Delphi\

iniFile.ReadString('MYSEC','MYKEY','缺省值');第一个参数节点名，第二个关键字名，第三个当没有找到该关键字对应的值时，缺省值。

F9运行程序，此时点击按钮，就可以看到test.ini的对应内容读出来了

写入ini文件，将Button1的响应函数改为：

procedure TForm1.Button1Click(Sender: TObject);

var

iniFile:TInifile ;

begin

iniFile:=TIniFile.Create(ExtractFilePath(Paramstr(0)) + 'test.ini');

// edit1.Text:=iniFile.ReadString('MYSEC','MYKEY','缺省值');

iniFile.WriteString('MYSEC','MYKEY','我改了');

end;

解释一下:

注释掉读取test.ini的代码

iniFile.WriteString('MYSEC','MYKEY','我改了');第一个参数节点名，第二个关键字名，第三个写入的值，如果要写进去的节点名称或关键字没有和ini文件中匹配的话，则创建一个新的节点或关键字

F9运行程序，此时点击按钮，再打开test.ini可以看到MYSEC节点MYKEY的值被更改了