var
  F:textfile;
 begin
  assignfile(F,'asdf.txt');
  reset(F);
    try
     writeln(F,'asdf');
    finally
     closefile(F);
    end;
 end;

解决方案 »

  1.   

    打开文件
    ShellExecute(Handle, "Open","e:\temp.txt", 0, 0, SW_SHOWMAXIMIZED );
      

  2.   

    好象不大对吧。应该把reset改为rewrite或append
      

  3.   

    好象不大对,reset应改为rewrite或append
      

  4.   

    好象不大对,reset应改为rewrite或append
      

  5.   

    将代码改为
    var
      F:textfile;
    begin
      assignfile(F,'asdf.txt');
      rewrite(F);
      try
       writeln(F,'asdf');
      finally
       closefile(F);
      end;
    end;
    也可以实现判断以下:if FileExists(F) then ....
     reset是只读递打开一个文件
     rewrite是创建并打开一个文件,对于一个存在的文件,文件将被覆盖
     append是项文件中追加文本.