Delphi 输出日志记录

 Delphi程序在运行着，有时想获取一些程序运行的值的话，可以用下面的输出日志的函数来实现 、

 

procedure WriteLog(sContent: string); //写入日志
var
tFile: TextFile;
filename: string;
logDir:string;
begin
logDir:='log';
filename := ExtractFilePath(Application.ExeName) + logDir+'\'+ FormatDateTime('yyyyMMdd', Now) + '.txt';
if not DirectoryExists(ExtractFilePath(Application.ExeName) + logDir) then
begin
MkDir(ExtractFilePath(Application.ExeName) + logDir);
end;

AssignFile(tFile, filename);
if FileExists(filename) then
Append(tFile)
else
Rewrite(tFile);
Writeln(tFile, FormatDateTime('yyyy-MM-dd hh:nn:ss', Now)+' '+sContent);
CloseFile(tFile);
end;

 

只要在想在调试的地址写上 writeLog('输出的内容');　这样就可以在软件所在目录下的log目录里生成的TXT文件里查看信息.