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文件示例
  • 如何开启快手直播伴侣推送进场提醒
  • 快手新粉丝通知怎么关闭
  • 快手怎么开启小店通知功能?
  • 快手怎么开直播权限教程 快手直播强制开通方法
  • 快手怎么更换头像?
  • 热门搜索
    英语国庆节手抄报 劳动节手抄报简单漂亮 51手抄报 525心理健康手抄报 经典诵读手抄报内容 绿色生活手抄报 小学四年级手抄报 双节手抄报 缅怀先烈的手抄报内容 文明礼仪手抄报资料