按了Program Reset之后,又可以启动了,奇怪。
 如果运行编译好的exe的文件,则会打开一连串的ERROR I/O 32的对话框,关也关不来。

解决方案 »

  1.   

    我的几个语句
    /////////////////////////
    ufn:='uf.user';
    nameEdit.Text:='';
    phoneEdit.Text:='';
    ufn:='uf.user';
    AssignFile(uf,ufn);
    Reset(uf);
    Read(uf,un);
    CloseFile(uf);//////////////////////
    usefile:='uf.user';
    if not FileExists(usefile) then fileCreate(usefile);
    ////////////////////////////////////////////////////AssignFile(useF,usefile);
          ReWrite(useF);
          Writeln(useF,ComboBox1.text);//记录当前操作员
          Closefile(useF);//////////////////////////////////////////////////
    ufn:='uf.user';
    AssignFile(uf,ufn);
    Reset(uf);
    Read(uf,un);
    CloseFile(uf);
    statusBar1.Panels[2].Text:='当前操作员:'+un;
    ///////////////////////////////////////
      

  2.   

    /////////////////////////////////////////////
    if FileExists(usefile) then Deletefile(usefile);
    /////////////////////////////////////////////