Delphi 中对 ini 文件操作
一、INI文件的结构:
;注释
[小节名]
关键字=值
ini 文件允许有多个小节,每个小节又允许有多个关键字,"="后面是该关键字的值。
ini 文件中可以用分号";"开头来注释一行。
二、定义 TIniFile 对象
Uses
IniFiles;
var
MyIniFile: Tinifile;
然后,就可以对变量 MyIniFile 进行创建、打开、读写、关闭等操作了。
三、打开INI文件
MyIniFile := TIniFile.Create('C:\MyProg\Setting.ini');
上面这一行语句会将变量 MyIniFile 与文件 C:\MyProg\Setting.ini 建立联系,然后,就可以通过变量 MyIniFile 来读写 C:\MyProg\Setting.ini 文件中的信息了。
如果括号中的文件名没有使用绝对路径的话,那么程序(其实是 Windows API 在操作这个文件)会在 Windows 目录中查找 Setting.ini,如果找不到,则操作失败,程序不会在其他任何地方搜索 Setting.ini 这个文件,包括程序本身所在的目录。如果你要操作非 Windows 目录中的 ini 文件,请指明文件的绝对路径。比如上面的 C:\MyProg\Setting.ini,或者用下面的方法获取程序所在目录中的 ini 文件:
var
MyIniFileName: String;
begin
MyIniFileName := ExtractFilePath(Application.ExeName) + 'Setting.ini';
MyIniFile := TIniFile.Create(MyIniFileName);
//...
end;
四、读取关键字
TIniFile 类提供的读取 ini 文件的方法:
ReadString(); //读取字符串型值
ReadBool(); //读取布尔型值
ReadInteger(); //读取整数型值
ReadFloat(); //读取浮点数型值
ReadDate(); //读取日期型值
ReadTime(); //读取时间型值
ReadDateTime(); //读取日期时间型值
ReadBinaryStream() //读取二进制数据流
其实 ini 文件中只能存储字符串型的数据,因为 ini 文件本身就是文本文件,里面只能存放文本内容。上面介绍的 ini 读取操作中,有读取整数型的,有读取布尔型的,有读取日期时间型的,其实都是先读取其字符串值,然后再进行类型转换得到的结果(看一下这些方法的源文件就知道了)。
这些方法的参数基本相同,只是最后一个参数“缺省值”的类型可能不同,不同的方法用不同的缺省值类型,比如读取字符串型值,其缺省值就是字符串类型:
var
S: String;
begin
S := MyIniFile.ReadString('小节名', '关键字', '缺省值');
end;
调用不同的方法,可以得到不同类型的值,其中缺省值为读取该关键字失败时返回的结果。
五、写入关键字
TIniFile 类提供的写入 ini 文件的方法:
WriteBool(); //读取布尔型值
WriteString(); //读取字符串型值
WriteInteger(); //读取整数型值
WriteFloat(); //读取浮点数型值
WriteDate(); //读取日期型值
WriteTime(); //读取时间型值
WriteDateTime(); //读取日期时间型值
WriteBinaryStream() //读取二进制数据流
请参照读取方法中的介绍,这里不再多讲。当要写入的 ini 文件不存在时,这些方法会自动创建该 ini 文件。
var
S: String;
begin
S := '要写入的数据';
MyIniFile.WriteString('小节名', '关键字', S);
六、其它关键字操作
DeleteKey('小节名','关键字'); //删除指定小节中的指定关键字
ValueExists('小节名','关键字'); //判断指定小节中的指定关键字是否存在
七、小节操作
采本站者,必打击者
要想增加一个小节,可以用写入关键字的方法来实现,在写入关键字时,如果小节不存在,则会自动创建改小节。其他小节操作方法如下:
EraseSection('小节名'); //删除指定的小节
SectionExists(('小节名'); //判断一个小节是否存在
ReadSection('小节名',TStrings变量); //读取指定小节中的所有关键字,通过 TStrings变量 返回结果
ReadSections(TStrings变量); //读取 ini 文件中的所有小节,通过 TStrings变量 返回结果
ReadSectionVaules('小节名',TStrings变量); //读取指定小节中的所有行(关键字=值),通过 TStrings变量 返回结果
上面的 TStrings变量 是一个引用参数,这些方法中对该参数做的任何修改都会返回到调用函数中去。
八、释放
当你使用完 MyIniFile,要及时释放 MyIniFile,以节约内存。你可以使用下面的结构来操作 MyIniFile:
var
MyIniFile: TIniFile;
begin
MyIniFileName := ExtractFilePath(Application.ExeName) + 'Setting.ini';
MyIniFile := TIniFile.Create(MyIniFileName);
try
//操作 MyIniFile
finally
MyiniFile.Free;
end;
end;
Delphi 中不允许存在非法的关键字(即没有等号"="的关键字行),这样的关键字是无法用 TiniFile 类来操作的。如果你要操作这样的特殊关键字行,请使用 Windows API 直接操作,它可以绕过 Delphi 的合法性检验。