封装 INI 文件读写函数

最新推荐文章于 2020-09-03 17:05:20 发布

网上de坏人

最新推荐文章于 2020-09-03 17:05:20 发布

阅读量2.3k

点赞数

文章标签： ini delphi integer string action function

本文链接：https://blog.csdn.net/chinazhd/article/details/6540250

版权

本文展示了如何在Delphi中封装读写INI文件的函数，包括窗体创建时读取信息和关闭时保存界面信息的示例。通过TIniFile组件，实现了对不同数据类型的读写操作，如整型、浮点型、字符串等。

摘要由CSDN通过智能技术生成

delphi读写ini文件实例 //--两个过程，主要实现：窗体关闭的时候，文件保存界面信息；窗体创建的时候，程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元） //--窗体创建的时候，读取ini文件信息 procedure TfrmAFN04H_F9.FormCreate(Sender: TObject); var vFIni: TIniFile; sFileName: string; begin sFileName := ExtractFileDir(Application.ExeName); if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then sFileName := sFileName + 'saveInformation.ini' else sFileName := sFileName + '/' + 'saveInformation.ini'; vFIni := TIniFIle.Create(sFileName); Edit1.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0'); Edit2.Text := vFIni.ReadString('AFN04F7', 'Edit2', '0'); Edit3.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0'); Edit4.Text := vFIni.ReadString('AFN04F7', 'Edit4', '0'); end; //--窗体关闭的时候，文件保存界面信息； procedure TfrmAFN04H_F9.FormClose(Sender: TObject; var Action: TCloseAction); var sFileName: string; vFIni: TIniFile; iTmp, i: integer; name: string; begin //写配置文件 sFileName := ExtractFileDir(Application.ExeName); if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then sFileName := sFileName + 'saveInformation.ini' else sFileName := sFileName + '/' + 'sav