对文件操作总报I/O error 32,请教？？？？

Question

代码为：
     assignfile(new_file,trim(long_name));
     rewrite(new_file);
     writeln(new_file,richedit1.text);
     closefile(new_file);其中long_name是一个用createfile 新建的textfile类型的文件，我想将richedit1中的内容写入这个文件，但总出错，请各位朋友给讲解一下！

Answer 1

可能是你的createfile 出错了，路径的问题吧，先在该应用程序目录下建个temp.txt文件，不用createfile，试试再说，记得给分啊！
    if FileExists(gsAppPath+'temp.txt') then
    begin
      assignfile(new_file,gsAppPath+'temp.txt');
      rewrite(txtfile);
      writeln(new_file,richedit1.text);
    end;
    closefile(new_file);

Answer 2

上面这位朋友，我试过了的，手工建的行，可是我是用语句createfile来建的呀！就不行！

Answer 3

AsSignFile本身会创建文件，把CreateFile去掉试试

Answer 4

rewrite无论如何也会新建文件，不管文件是否存在。

Answer 5

我将rewrite那行去掉后，结果又给我报I/O error 103!
代码：
    assignfile(new_file,trim(long_name));
    writeln(new_file,richedit1.text);
    closefile(new_file);

Answer 6

“firetoucher(风焱) ”说的对，哎，这分该给他！

Answer 7

assignfile(new_file,trim(long_name));
      rewrite(new_file);
      writeln(new_file,richedit1.text);
      closefile(txtfile);
四行代码就搞定了，别画蛇添足就行了。

Answer 8

assignfile(new_file,trim(long_name));
      rewrite(new_file);
      writeln(new_file,richedit1.text);
      closefile(new_file);
四行代码就搞定了，别画蛇添足就行了。

Answer 9

没有ReWrite肯定不行。
    assignfile(new_file,trim(long_name));
    ReWrite(new_file);  
    writeln(new_file,richedit1.text);
    closefile(new_file);

Answer 10

你是不是在RICHEDIT里面已经打开过这个文件？

Answer 11

我实在不知道你为什么这样来打开文件
var
  ftext :TextFile;
begin
  AssignFile(ftext, 'C:\a.txt');
  Rewrite(ftext);
  writeln('这是一个测试');
  closeFile(ftext);
end;
全部搞定，绝对不会出现什么狗屁的I/O 32错误

Answer 12

Linux2001(我想买手提电脑啊！) 
你的这种写法我也知道是行的，，可是我那个文件是动态创建的，因为其文件名必须是根据用户的输入而定的，如果'c:\a.txt'换成一个包括整个路径的文件名，就会出现上面的错误，你可以再试一下！