Delph记录输出日志

本文整理自网络，侵删。

 
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文件里查看信息.
 

相关阅读 >>

Delphi 图像操作

Delphi在postgresql中读写二进制数据

Delphi firedac,ado性能测试

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

Delphi编写你的第一个com程序

Delphi datetimepicker 宽度如何与Delphi自带style同步

Delphi xe中将正则表达式tregex的使用

Delphi 利用http的post方法做个在线翻译的小工

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delph记录输出日志