创建文件出现i/o Error 32错误

Question

创建文件。在向文件写入数据,第一次运行为什么出现i/o Error 32错误,第二次就正常了！这是怎么加回事！
代码如下
GetcURRENTdIRECTORY(256,dir);
  str:=dir;
  if  not FileExists(str+'\文件.txt') then
  begin
   CreateFile(Pchar(str+'\文件.txt'),GENERIC_READ or GENERIC_WRITE,1,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
  end;
  AssignFile(f,str+'\文件.txt');
  str1:=formatDateTime('yyyymmdd-hh:nn:ss',now());
  Append(f);
  writeln(f,str1+'数字 '+Edit1.text+'-'+Edit2.text+'-'+Edit3.Text+'-'+Edit4.text+'-'+Edit5.text+');
  CloseFile(f);

Answer 1

既然，你已经创建了文件并打开她了，为什么还要在绑定一次？
CreateFile(Pchar(str+'\文件.txt'),GENERIC_READ or GENERIC_WRITE,1,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); 
你注释掉 
  AssignFile(f,str+'\文件.txt'); 
这行再试试。