<TextFile>簡単テキスト出力

TextFileを使って、簡単にテキストを出力するメモです
テキストを作成したり、ログを出力したりのがメインの使い方だと思います

サンプルソース：

procedure TForm1.Button1Click(Sender: TObject);
var
   Path: String;
   FLog: TextFile; // テキストファイル制御変数
begin
   Path := ExtractFilePath(ParamStr(0))+ '\' + 'テスト' + '.txt';
   // ファイル変数の関連付け(ファイル場所の指定)
   AssignFile(FLog, Path);
   try
   // ファイルの存在を確認  
     if FileExists(Path) then
       Append(FLog) // ファイルの末尾に追加
     else
     begin
       Rewrite(FLog); // 新しいファイルを作成し開く
       // ファイルへ書き出し
       Writeln(FLog, 'ヘッダー'); // 新しいファイルの一行目
     end;
     // ファイルへ書き出し
     Writeln(FLog, ’内容’);
   finally
     CloseFile(FLog); // ファイル関連付け終了
   end;