INI文件的结构如下
[小节名]
关键字=值
uses IniFiles; {操作Ini文件需要引用TIniFile 的单元}
常用的方法
WriteString 写入字符串
WriteInteger 写入数字
WriteBool 写入布尔值
ReadString 读取字符串值
ReadInteger 读取数字
ReadBool 读取布尔值
ReadSections 读取小节列表
ReadSection 读取某小节下关键字列表
ReadSectionValues 读取某小节下所有内容列表,包括关键字和值
var F:TIniFile; begin F := TIniFile.Create('c:/A.ini'); //如果文件存在则打开,如果不存在,当向其中写入数据时,将创建ini文件 F.WriteString('PersonInfo','姓名','张三'); F.WriteInteger('PersonInfo','年龄',20); F.WriteBool('PersonInfo','婚否',False); end;
var F:TIniFile; name:string; age:Integer; merry:Boolean; begin F := TIniFile.Create('c:/A.ini'); name := F.ReadString('PersonInfo','姓名','无名氏'); //当读取失败时,返回'无名氏',否则返回读取的值 age := F.ReadInteger('PersonInfo','年龄',20); merry := F.ReadBool('PersonInfo','婚否',False); end;
var F:TIniFile; List:TStringList; begin try List := TStringList.Create; F := TIniFile.Create('c:/A.ini'); F.ReadSections(List); //将小节依次读取到List中 ShowMessage(List.Text); //显示小节列表内容 finally List.Free; F.Free; end; end;
var F:TIniFile; List:TStringList; begin try List := TStringList.Create; F := TIniFile.Create('c:/A.ini'); F.ReadSection('PersonInfo',List); //将小节依次读取到List中 ShowMessage(List.Text); //显示'PersonInfo'小节下关键字列表内容 finally List.Free; F.Free; end; end;
var F:TIniFile; List:TStringList; begin try List := TStringList.Create; F := TIniFile.Create('c:/A.ini'); F.ReadSectionValues('PersonInfo',List); //将小节依次读取到List中 ShowMessage(List.Text); //读取某小节下所有内容列表,包括关键字和值 finally List.Free; F.Free; end; end;