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 tscrollbar 用于滚动窗口、组件内容

Delphi编程启动服务停止服务新建服务的方法

Delphi mediaplayer循环播放mp3所有音乐文件问题?

Delphi中最小化其他程序及所有程序窗口最小化

Delphi xe 应用程序横竖屏设置

android : assets与res/raw资源目录的区别

Delphi 根据注册表信息判断程序是否安装

Delphi twebbrowser 获取cookie

Delphi android实例-trectangle加载图片(xe8+小米2)

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...