文件操作

    昨天写了个记录日志的程序，性能很差。要实现的功能是往日志中输入数据，当日志的文件大小大于某一个
值时，新建一个文件，并作为当前的日志文件。而我实现的过程是，每次往日志中写内容时都加锁，然后关闭当前
日志文件，获得当前日志文件的大小，并与约定的值作比较，如果大，就新建文件，如果小就重新打开当前文件并
在文件末尾添加内容，大致实现过程如下：
    TCriticalSection.enter;
    CloseFile(Textfile);
    handle := openfile(filename,nil);
    filesize :=getfilesize(handle);
    if filesize > maxsize then 
    begin
      filename := NewFileName;
      AssignFile(Textfile,filename);
      Rewrite(textfile);
    end
    else
    begin 
      AssignFile(Textfile,filename);
      Append(textfile);
    end;
    .......//writeLog;
    TCriticalSection.leave;


   光看过程就知道这性能是很不好的，之后我对其进行了修改，新加了一个变量，用于记录文件的当前的大小。
实现的过程很简单：
    writelog（msg）；
    iCurrentSize := iCurrentSize + Lenght(msg);

   这样上面的代码就可以这样修改了：
   TCriticalSection.enter;
   if iCurrentSize > maxSize then 
   begin
      CloseFile(Textfile);
      filename := NewFileName;
      AssignFile(Textfile,filename);
      Rewrite(textfile);
      iCurrentSize := 0;
    end
    .......//writeLog;
    TCriticalSection.leave;

    两者改动对于日志来说区别不大，因为对时间要求不是特别严格。可是如果是对那种高精度，高效率的文
件输入就有很大影响了。同时我也想说，有很多时候，我们如果不能直接去得到结果，为什么不通过另外一条
途径呢？可能不直接得到的更快，更好。简单一点就是要勤于思考，懂得走弯路。