Delphi テキストファイルに追加書き込みする。

とりあえずテキストに吐きだしたい時に使う。

既存のファイルに上書き。

var
  txtFile: TextFile;
  str, path: string;
begin
  str := Format('%s %s', ['hoge', 'hoge']);
  path := 'D:\hoge.txt';
  AssignFile(txtFile, path);
  if FileExists(path) then begin
    Append(txtFile);
  end else begin
    Rewrite(txtFile);
  end;
  Writeln(txtFile, str);
  CloseFile(txtFile);
end;