ヅラッシュ！ by NI-Lab.

Googleで検索してもみつからなかった……そんなにDelphiユーザは少ないのだろうか？ Javaとかなら、もっと簡単にみつかりそうな気がする。

オライリーのNutShellにあったサンプルをもとに書いてみた。{$IOChecks Off} を記述しないと、ファイルがみつからないときに実行時エラーになる。

procedure fileout(FileName: string; Msg: string);
var
  F: TextFile;
begin
  AssignFile(F, FileName);
  {$IOChecks Off}
  Append(F);
  {$IOChecks On}
  if IOResult <> 0 then
    Rewrite(F);
  WriteLn(F, Msg);
  CloseFile(F);
end;