Delphi中TIniFIle中的换行

Question

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

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

谢谢

Answer 1

我想我应该澄清一下Wouter van Nifterick的答案。Delphi中当前的TIniFile对象不支持换行符。为此，您必须手动执行此操作。下面是一个示例：

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

我是这样做的：

在所有行中使用tfile.readalllines)

• iterate或
• 以tstringlist.loadfromfile身份打开ini文件。
  • 如果该行不是第一行，并且该行以[开头，则插入line(break).

​

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

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