手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

Delphi读写ini文件示例

时间:2024-10-13 08:22:08

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

Delphi读写ini文件示例

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

Delphi读写ini文件示例

3、我们咸犴孜稍先尝试读取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.exeExtractFilePath(ParamStr(0)处理完后变成:D:\Delphi\iniFile.ReadString('MYSEC','MYKEY','缺省值');第一个参数节点名,第二个关键字名,第三个当没有找到该关键字对应的值时,缺省值。

Delphi读写ini文件示例

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

Delphi读写ini文件示例

5、写入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文件中匹配的话,则创建一个新的节点或关键字

Delphi读写ini文件示例

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

Delphi读写ini文件示例
© 手抄报圈