delphi - Delphiは行を置き換えます

Question

.txt ファイルがあり、行を新しい行に置き換えたいと考えています。手順は次のとおりです。

1. .txt ファイルを読み込む
2. ソースを TStringList に保存する
3. 特定の行の一部のデータを変更する
4. 新しいデータを元のファイルに保存します。

どうすればいいですか？

Answer 1

新しい Delphi では、1 回の呼び出しでファイルの内容を文字列の配列として取得できますTFile.ReadAllLines()。

program TestModifyLine;  {$APPTYPE CONSOLE}
uses Types,IoUtils;

procedure ModifyLine(fn:string;Index:integer;NewText:String);
var lines:TStringDynArray;
begin
  lines := TFile.ReadAllLines(fn);
  lines[Index] := NewText;
  TFile.WriteAllLines(fn,lines);
end;

begin
  ModifyLine('test.txt',12,'hello');
end.