本文整理自网络,侵删。
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 mediaplayer循环播放mp3所有音乐文件问题?
android : assets与res/raw资源目录的区别
Delphi android实例-trectangle加载图片(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>