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

我是这样做的：

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

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

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

德尔福TIniFIle中的换行符

2 个答案: