Delphi 日志的方法 Log

写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下

procedure writeWorkLog(sqlstr: string);

var filev: TextFile;

ss: string;

begin

sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr;

ss:='c:\ErpRunLog.txt';

if FileExists(ss) then

begin

AssignFile(filev, ss);

append(filev);

writeln(filev, sqlstr);

end else begin

AssignFile(filev, ss);

ReWrite(filev);

writeln(filev, sqlstr);

end;

CloseFile(filev);

end;