读写文本文件有时报错，有时不报错，为什么

Question

我用delphi7读写文本文件，11.txt不存在，每次创建新的
  exFile:String;
  inFile:array[1..2]of textFile;
  for i:=1 to2 do
  begin
         exFile:='c:\source\11.txt';
         AssignFile(inFile[i],exFile);
         reWrite(inFile[i]);  end;
运行时有时正常，有时报I/O error 32,请问是什么原因？

Answer 1

因为你一次只能有一个文件变量和物理文件关联，也就是当文件正在被使用的时候，就不能由其他的变量访问，很明显，你同时用两个textFile文件关联了同一个物理文件