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文件示例
  • 如何开启快手直播伴侣推送进场提醒
  • 快手新粉丝通知怎么关闭
  • 快手怎么开启小店通知功能?
  • 快手怎么开直播权限教程 快手直播强制开通方法
  • 快手怎么更换头像?
  • 热门搜索
    如何营销产品 脸上出油长痘怎么办 养老生活 创酷怎么样 苯并芘怎么读 如何快速瘦小腿 美丽生活 如何增强宝宝免疫力 风云三国怎么娶貂蝉 怎么保存茶叶