Delphi记录程序日志

Delphi记录程序日志

Delphi记录程序日志，基本做法是建一个公共单元，将日志记录做成一个方法，其他单元调用这个方法来记录日志。

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

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

function WriteLog(const content:string):Boolean;

在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文件，记录日志

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

procedure TForm1.Button1Click(Sender: TObject);

begin

if writeLog(Edit1.Text) then

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

end;

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

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