Delphi对INI文件进行读、写操作（Delphi read and write the INI file）.docVIP

Delphi对INI文件进行读、写操作（Delphi read and write the INI file） myinifile: = tinifile.create (getcurrentdir + \ config. ini ); myinifile.writestring (ustb , changes, fdsaf); myinifile.writeinteger (贝壳 , 杨浪 , 121). myinifile.writebool (小节名 , 关键字, false); myinifile.writestring (小节名 , changes, fdsaf); myinifile.readsections (memo1.lines); / / 所有的小节名 myinifile.readsection (小节名, memo2.lines); / / 所有的关键字 myinifile.readsectionvalues device , memo3.lines); edit1. text = myinifile.readstring device, changes, 1 ); edit2. text = myinifile.readstring device, path, 1); edit3. text = booltostr (myinifile.readbool device, ntype , true); ini文件的应用 ini文件在系统配置及应用程序参数保存与设置方面, 具有很重要的作用, 所以可视化的编程一族, 如vb、vc、vfp、delphi等都提供了读写ini文件的方法, 其中delphi中操作ini文件, 最为简洁, 这是因为delphi3提供了一个tinifile类, 使我们可以非常灵活的处理ini文件. 一、有必要了解ini文件的结构: 注释; 关键字 = 值 ... ini文件允许有多个小节, 每个小节又允许有多个关键字 = 后面是该关键字的值. 值的类型有三种: 字符串、整型数值和布尔值.其中字符串存贮在ini文件中时没有引号, 布尔真值用1表示, 布尔假值用0表示. 注释以分号 ; 开头. 二、定义 1、在interface的uses节增加inifiles; 2、在var变量定义部分增加一行: myinifile: tinifile; 然后, 就可以对变量myinifile进行创建、打开、读取、写入等操作了. 三、打开ini文件 myinifile: = tinifile.create (program.ini); 上面这一行语句将会为变量myinifile与具体的文件 program.ini建立联系, 然后, 就可以通过变量myinifile, 来读写program.ini文件中的关键字的值了. 值得注意的是, 如果括号中的文件名没有指明路径的话, 那么这个program.ini文件会存储在windows目录中, 把program.ini文件存储在应用程序当前目录中的方法是: 为其指定完整的路径及文件名.下面的两条语句可以完成这个功 能: filename: = extractfilepath (paramstr (0)) + program.ini; myinifile: = tinifile.create (filename); 四、读取关键字的值 针对ini文件支持的字符串、整型数值、布尔值三种数据类型, tinifiles类提供了三种不同的对象方法来读取ini文件中关键字的值. 假设已定义变量vs、vi、vb分别为string、 integer、boolean类型. vs: = myinifile.readstring (小节名, 关键字, 缺省值); vi: = myinifile.readinteger (小节名, 关键字, 缺省值); vb: = myinifile.readbool (小节名 Keyword, default value); The default value is the default value returned when the INI file does not exist. Five, write to the INI file Similarly, the TInifile class provides three different object methods to write strings, integers, and Boolean types to the INI file. Myinifile.writestring (section name, keyword, variable or string value); Myi