从INI文件中读取所有部分并添加到delphi列表中

uses
  IniFiles, Classes;

procedure ReadIniFileToList(const FileName: string; List: TStrings);
var
  IniFile: TIniFile;
  Sections: TStringList;
  I: Integer;
begin
  IniFile := TIniFile.Create(FileName);
  Sections := TStringList.Create;
  try
    // 获取INI文件中的所有部分
    IniFile.ReadSections(Sections);
    
    // 遍历每个部分
    for I := 0 to Sections.Count - 1 do
    begin
      // 添加部分名到列表
      List.Add('[' + Sections[I] + ']');
      
      // 获取当前部分的所有键值对
      IniFile.ReadSectionValues(Sections[I], List);
      
      // 添加空行分隔不同部分
      List.Add('');
    end;
  finally
    IniFile.Free;
    Sections.Free;
  end;
end;