delphi怎样写日志文件

delphi怎样写日志文件

写日志，其实就是文本文件的读写。
delphi 提供了几种文件操作功能函数，如果日志读写很频繁，可以考虑设置一个全局的文件变量，在程序运行前打开该文件：
 var
　　 　F: TextFile; // 声明文本文件类型变量

 logFileName := 'd:\Log.txt'; 
 AssignFile(F, logFileName);其后在需要的时候：
  if fileexists(logFileName) then  
   append(F)  
  else  
   rewrite(F);  

 writeln(F, DateTimeToStr(Now)+': '+str);

出错原因：因为访问文件的方式是独占式,两个地方同时访问了这个文件。 将 textfile 设置为全局变量，程序初始化时，载入textfile，将所有写textfile 文件的操作，都由一个函数来执行，程序关闭时才closefile(textfile） 。 追加文件内容速度很快，但是载入文件和关闭文件是非常缓慢的，这两过程所消耗的时间非常巨大的。一直载入/关闭的话，一点效率也没有。小文件还行，只要上m就可以明显感觉出来了。