2012年6月8日
WriteErrorFile() try Except end 错误处理并且保存.txt文件
摘要： {写1个错误的日志文件并记录错误的地方} //调用WriteErrorFile('Button1'); //tryexcept在这里放着end; procedureWriteErrorFile(str:string); var path:string;{FilePath} f:TextFile;{txtFile} et:string;{errortime} ef:string;{errorfile... 阅读全文
posted @ 2012-06-08 09:02 XE2011 阅读(203) 评论(0) 推荐(0)
FormatDateTime 一段以时间为命令的代码
摘要： //FormatDateTime 一段以时间为命令的代码procedure TForm1.Button1Click(Sender: TObject);varfilename,timename:string;beginfilename:='文件名_'; //这是一个变量名timename:=filename+FormatDateTime('yyyy"年"mm"月"dd"日_"dddd"_"hh"_"... 阅读全文
posted @ 2012-06-08 08:50 XE2011 阅读(224) 评论(0) 推荐(0)