delphi 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;

运行效果：