Delphi 写日志函数
指尖风暴 不多做解释，直接上函数：
已经修改了函数中的多余参数
procedure WriteLog(txt: string);
var
TF: TextFile;
LogFile: string;
begin
if not directoryexists(extractfilepath(ParamStr(0)) + 'log/') then
createdir(extractfilepath(ParamStr(0)) + 'log/');
LogFile := extractfilepath(ParamStr(0)) + 'log/' + FormatDateTime('yyyymmdd', Now) + '.log';
AssignFile(TF, LogFile);
if FileExists(LogFile) then
append(TF)
else
rewrite(TF);
writeln(TF, DateTimeToStr(Now) + ' : ' + txt);
closefile(TF);
end;声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
评论(2)
sysDir，大家可以删掉这个。不影响使用。
多了一个参数，可以不用管了