delphi - 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

私はこのようにします：

• ini ファイルを開きます (tstringlist.loadfromfile または tfile.readalllines として)
• すべての行を繰り返します。
  • 行が最初の行ではなく、行が で始まる場合は、行[を挿入します (改行)。

この疑似コードを記述するよりも多くの作業を必要としない関数として。

inifile に書き込むたびにこれを手動で呼び出す必要がないように、これを tmemini または Tinifile の子孫にラップするのがおそらく最善です。