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

airhand 2003-08-23 12:20:22
我用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
...全文
170 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxpbuaa 2003-08-23
  • 打赏
  • 举报
回复
写每个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;

—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
firstshine 2003-08-23
  • 打赏
  • 举报
回复
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;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧