在Delphi中读取以注释开头的INI文件部分将返回一个空列表

var
  iniFile: TIniFile;
begin
  iniFile := TIniFile.Create('path/to/your/file.ini');
  // ...
end;

var
  sections: TStringList;
begin
  sections := TStringList.Create;
  iniFile.ReadSections(sections);
  // ...
end;

var
  i: Integer;
  section: string;
begin
  for i := 0 to sections.Count - 1 do
  begin
    section := sections[i];
    if not (section.StartsWith(';') or section.StartsWith('#')) then
    begin
      // 处理非注释节的逻辑
    end;
  end;
end;

var
  keys: TStringList;
begin
  keys := TStringList.Create;
  iniFile.ReadSection(section, keys);
  // ...
end;

begin
  // ...
  iniFile.Free;
  sections.Free;
  keys.Free;
end;