ini文件中每个SECTION间如何加空行？

Question

我用Tinifile生成的文件无空行
[aaa]
[bbb]
a=1
b=2
[ccc]
c=1
d=2请问ini文件中每个SECTION间如何空行，并且有的只写SECTION名而无关键字，例如[aaa]？
希望的格式如下:
[aaa][bbb]
a=1
b=2[ccc]
c=1
d=2

Answer 1

var
  s:String;
  sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('c:\a.ini');
  s:=sl.Text;
  s:=Trim(StringReplace(s,'[',#13#10'[',[rfReplaceAll]));
  sl.Text:=s;
  sl.SaveToFile('c:\a.ini');
  sl.Free;
end;

Answer 2

写每个SECTION中最后一个Key的Value时，在Value后加上#13#10。如：var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create('g:\ttt.txt');
  IniFile.WriteString('Name', 'lxpbuaa', 'YES'#13#10);
  IniFile.WriteString(('Sex', 'Male', 'NO');  
  IniFile.Free;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————