Question

我想在Delphi程序中加一个写日志的方法

我想在Delphi程序中加一个写日志的方法，这个方法是用来测试系统的某一个过程或者方法所耗时间，如何添加这个写日志的方法，在某过程开始前往日志里写一个时间，过程结束时再往日志里写一个时间

Answer 1

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

Answer 2

“在某过程开始前往日志里写一个时间，过程结束时再往日志里写一个时间”
答案不是你自己都已经写出来了吗？

追问

可问题是这代码写不出来啊，刚接触Delphi的，能给个代码吗？求代码提示