delphi ini 文件读取

摘要: 可维护ini文件读取

1.INI文件的结构：
;这是关于INI文件的注释部分
[节点]
关键字=值

2.使用两层循环读取ini文件节点和节点中的属性

使用以下文件测试：
[某某1]
name=某某1
gender=0
ege=26
birthday=0.0
hobby=篮球、桌球、旅游、IT
introduction=
[某某2]
name=某某2
gender=0
ege=26
birthday=0.0
hobby=网球、户外运动
introduction=

使用delphi 进行读取: (文件很简单。。)

procedure TForm2.FormCreate(Sender: TObject);
var
FileData: TIniFile;
J,I: Integer;
sTmp: String;
IniFileNode: array [1..2] of string;
IniFileNodeKey: array [1..6] of string;

begin
//1.准备工作
lst1.Clear;
FileData := TIniFile.Create('D:\github\作业-7-27\霍莹辉-727作业-张杰老师\TOTInfos.ini');
sTmp := '';

IniFileNode[1] := '某某1';
IniFileNode[2] := '某某2';
IniFileNodeKey[1] := 'name';
IniFileNodeKey[2] := 'gender';
IniFileNodeKey[3] := 'age';
IniFileNodeKey[4] := 'birthday';
IniFileNodeKey[5] := 'hobby';
IniFileNodeKey[6] := 'introduction';

//2.读取ini中的数据，并显示。
for I := 1 to 2 do //I个节点
begin
// sTmp := '';
for J := 1 to 6 do //J个属性字段.
begin
sTmp := IniFileNodeKey[J] + ':' + FileData.ReadString(IniFileNode[I], IniFileNodeKey[J], IniFileNodeKey[J]);
lst1.AddItem(sTmp,lst1);
end;
lst1.AddItem('',lst1);
end;

end;

运行效果：