delphi - Delphi中TIniFIle中的换行符

Question

如何轻松地在 TINiFile 中添加换行符？

我想将 .ini 中的每个部分分开以使其更具可读性。

谢谢

Answer 1

I thought I'd clarify the answer of Wouter van Nifterick. The current TIniFile object in Delphi doesn't support line breaks. To do this, you must do it manually. Here's a sample:

procedure LineBreakBeforeSection(const Filename, SectionName: String);
var
  L: TStringList;
  X: Integer;
  S, C: String;
begin
  L:= TStringList.Create;
  try
    L.LoadFromFile(Filename);
    C:= '['+UpperCase(SectionName)+']';
    for X:= 0 to L.Count - 1 do begin
      S:= UpperCase(Trim(L[X]));
      if S = C then begin
        L.Insert(X, '');
        Break;
      end;
    end;
    L.SaveToFile(Filename);
  finally
    L.Free;
  end;
end;

Answer 2

我这样做：

• 打开 ini 文件（如 tstringlist.loadfromfile 或 tfile.readalllines）
• 遍历所有行。
  • 如果该行不是第一行，并且该行以 开头[，则插入一行（中断）。

作为一个函数，它不应该比编写这个伪代码花费更多的工作。

最好将它包装在 tmemini 或 tinifile 后代中，这样您就不必每次写入 inifile 时都手动调用它。