TC读写文件操作问题

最近在做自动化项目时，需要对某个文件进行简单的读写操作，但就因为这个简单，却折腾了我不少时间。因为在调式过程中老弹出以下的错误：

只是指明了I/O出差，但没有更详细的信息可参考，所以一直调式了很久，还是出这个问题，已经检查了很多次代码，可以确定是没问题。后来实在没办法了，尝试用另外一个文件试试，结果通过了。回想了之前的操作，发现之前在调试过程中，有一次出错了，代码在中间中断，这时就直接按了TC的停止，结束运行。问题就出现在这里了，清楚文件读写操作流程的都知道，文件操作完成后一定要调用类似CloseFile的方法关闭文件，如果没调用，那就一定会长时间占用这个文件的操作权限，之后就无法再操作了，也就出现了以上的错误。51Testing软件测试网jv(EL&vXPL(S7x

简单例子代码如下：51Testing软件测试网'|qXRas

procedure Main;51Testing软件测试网LLQZEg"L
var FileVar,str,str2;
*Z2p!ZM?0begin
9]/c_&A5W+`0^
r0  str2 := '';51Testing软件测试网1c"T
`#\,M6_-q?6k
  AssignFile(FileVar,'C:\4.txt');
W,|5f]?v M@0  Reset(FileVar);51Testing软件测试网2XuV%b MJA
  while not Eof(FileVar) do
Li3uv3t}!H#W0  begin51Testing软件测试网m.S3Y`f0ma
    Readln(FileVar, str);
:NY0Q&t @X0    str2 := str2 + str;51Testing软件测试网Uo5e(o$Ey
  end; 
C"fCk*zr @oM3q0  Rewrite(FileVar);51Testing软件测试网'xll"{#Wn}
  Write(FileVar, str2 + 'new');51Testing软件测试网NCh_,Ipd}

  //关闭文件51Testing软件测试网^`G-yYR!])iF9C
  CloseFile(FileVar);51Testing软件测试网&i6EuC;rr*~
end;51Testing软件测试网~\`x \

%NIB3FU.r0像以上的例子，如果在调式代码的过程中，在CloseFile(FileVar)方法之前中断了，在之后再次运行这段代码，肯定会出错，此时只能换另一个文件进行调式了。51Testing软件测试网4H0y_*h
S r Vi@