log文件，大家都是怎么写的？

Question

把程序执行中的重要步骤，以及出错信息，输出到log文件，
怎么处理才比较妥当？
大家都是用什么方法？

Answer 1

我知道要向txt文件中写，我只是想求一个比较好地解决方案，
比如说，什么时候打开文件，什么时候输入到文件，什么时候关闭文件，
log文件大到什么程度，程序会有明显的变慢等等等。难道大家写程序都没有输出日志么？

Answer 2

procedure RecordLog(Log: string);
var
  f: Textfile;
  FileName: string;
begin
  FileName := 'c:\a.log';//保存文件名
  AssignFile(f, FileName);
  try
    if FileExists(FileName) = False then
      Rewrite(f)
    else
    begin
      Reset(f);
      Append(f);
    end;
    Writeln(f, FormatDateTime('yyyy-mm-dd hh:nn:ss ', Now) + Log);
  finally
    CloseFile(f);
  end;
end;