为什么我用了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);///////////////////////////////////////////// 那个API函数=mode com1 2400,n,8,1? dbgrid有没有类似onSelChang 之类的消息; 急,急!!在线等!! 关于StatusBar的AutoHint问题 SQL Server断开后,软件如何再连上服务器? ====Delphi 5.0 企业版打不上pack1,救救我吧==== 让DBEdit如何和Listbox中相应的项联系 问一个很菜的问题? 谁有TChart 这个控件的详细的方法和属性等,总之所有用法的中文文档,50分送上! 超级高手进来,探讨简单的字体 如何获取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);
/////////////////////////////////////////////