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;

運行效果：