写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'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;