读INI文件所有节点信息到列表中

以下代码读取Ini文件的所有信息

function TFrm_Main.AddIniInfoList: Integer;
var
  IniInfoList: tstringlist;
  i: Integer;
  SecTionName: string;
  Titem: TListItem;
begin
  TeListView1.Clear;
  IniInfoList := tstringlist.Create;
  myinifile.ReadSections(IniInfoList);
  for i := 0 to IniInfoList.Count - 1 do
  begin
    Titem := TeListView1.Items.Add;

    AddSubIniInfo(IniInfoList[i], Titem);
  end;
end;

 

 

function TFrm_Main.AddSubIniInfo(SectionInfo: string;
  Item: TListItem): Integer;
var
  IniInfoList: tstringlist;
  i: Integer;
  SecTionName: string;
  Nameinfo: string;
begin
  //得到小节名后
  IniInfoList := tstringlist.Create;
  myinifile.ReadSection(SectionInfo, IniInfoList);
  for i := 0 to IniInfoList.Count - 1 do
  begin
    SecTionName := IniInfoList[i];
    Nameinfo := myinifile.Readstring(SectionInfo, SecTionName, '');
    if i = 0 then
    begin
      Item.Caption := Nameinfo;
      Item.ImageIndex := 5;
    end
    else
      Item.SubItems.Add(Nameinfo);

  end;
end;