为什么会这样？那该怎么解决呢？ （关于读写文件的问题）

Question

var
  f: textfile;
begin
  AssignFile(f, MessFile);
  if not fileexists(MessFile)
    then
  begin
    if FileCreate(MessFile) = -1 then
    begin
      showmessage('Cannot create file!');
      exit;
    end;    rewrite(f);
  end
  else
    append(f);  write(f, 'fsfs'); //这步没有问题，所以在这里我也懒得写出来了
  closefile(f);
end;

Answer 1

解决了，呵呵，是我自己一下脑袋短路，不管怎样，只需要
assignfile(f,'c:\text.mm');
rewrite(f);
……
closefile(f);不用 FileCreate(MessFile,1) 
不过，还是感谢newyj的关注。 分数就全给了。