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

Posted 2023-03-24

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

给你一个写日志的函数吧,只需要传内容进去即可,自动记录时间的,日志保存在'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; 参考技术A “在某过程开始前往日志里写一个时间，过程结束时再往日志里写一个时间”
答案不是你自己都已经写出来了吗？追问

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

我想在UMeditor中加入一个百度音乐的按钮 应该怎么从UEditor

参考技术A 方法如下：
1、在Ueditor的Ueditor.config.js添加 “工具栏” 代码是“Music”
2、然后再部署上传音乐的文件就可以了。
详细的Ueditor部署，请参考Ueditor官网。 参考技术B 在Ueditor的Ueditor.config.js添加工具栏 代码是“Music”，然后再部署一下上传音乐的文件就可以了，如果还不太清楚的话，就去Ueditor的官网看一下 地址：http://ueditor.baidu.com/website/index.html 下载一个完整实例学习一下本回答被提问者和网友采纳