为什么我用了Pascal的文本文件的操作函之后,程序第一次可以启动,第二次启动时会出现错误? 按了Program Reset之后,又可以启动了,奇怪。 如果运行编译好的exe的文件,则会打开一连串的ERROR I/O 32的对话框,关也关不来。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我的几个语句/////////////////////////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;/////////////////////////////////////// /////////////////////////////////////////////if FileExists(usefile) then Deletefile(usefile);///////////////////////////////////////////// delphi 如何将数据写入网站的数据库ACCESS TreeView树形目录问题,很菜,希望大家表拍砖 如何让TDBComboBox的下拉框中显示两列甚至三列,但最终选择后只返回第一列的值? 窗体继承的问题 在fastreport中如何设置字体颜色、粗体、正常及下划线? 如何获取EXE或DLL文件的内部名称文件属性 一个小问题,50分 怎么定义一个工程级的变量呀? 通过wingate代理,不能使用ftp,用什么软件能解决? 怎样在MEMO中实现字符串查找功能(类似记事本的查找功能) 如何获取CXgrid的过滤文本? sql 查询的问题
/////////////////////////
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;
///////////////////////////////////////
if FileExists(usefile) then Deletefile(usefile);
/////////////////////////////////////////////