delphi怎样写一个程序的日志啊?

1、定义类型

var
  F: TextFile;
  Logfile: string;

  txt :string;

 

2、代码

  //创建目录

  if not directoryexists(_AppPath + 'Error/') then
    createdir(_AppPath + 'Error/');

  LogFile :=  _AppPath + 'Error/' + FormatDateTim('YYYYMMDD',Date) + '.txt';

 

 //写日志文件
  AssignFile(F, LogFile);

  if FileExists(LogFile) then
    Append(F)
  else
    Rewrite(F);

 

  //开始写入

  Writeln(F, txt);

 

  //结束

  CloseFile(F);

来源: http://www.programbbs.com/bbs/view12-4986-1.htm