Delphi记录程序日志

1、打开Delphi7集成开发环境，在默认工程的Form1窗体，放一个Button1控件和一个Edit1控件

2、在Unit1.pas源代码文件的interface区声明函数：

function WriteLog(const content:string):Boolean;

3、在Unit1.pas源代码文件的implementation区，对writeLog函数进行实现：

function WriteLog(const content:string):Boolean;

var

  logFile: TextFile;

  slog,sfile: string;

begin

  slog:=DateTimeToStr(Now)+' Log: '+content;

  sfile:='c:\'+DateToStr(Date)+'.txt';

  if FileExists(sfile) then

  begin

    AssignFile(logFile, sfile);

    append(logFile);

    writeln(logFile, slog);

  end else begin

    AssignFile(logFile, sfile);

    ReWrite(logFile);

    writeln(logFile, slog);

  end;

  CloseFile(logFile);

  Result:=True;

end;

在C盘根目录以日期为命名TXT文件，记录日志

4、双击Button1进入事件方法，编写代码如下：

procedure TForm1.Button1Click(Sender: TObject);

begin

 if  writeLog(Edit1.Text) then

     showMessage('记录日志成功');

end;

5、F9运行程序，Edit1内输入：‘第一条日志’，点击Button1弹出记录日志成功

6、查看电脑c盘根目录，日志文件内容和预期一致，记录日志成功