郁闷郁闷真是奇怪。。。。。(15)

Function CreateTxtfile(wjmpath:string;hphm:string;hpzl:string;speed:string;xcxs:string;dcxs:string;date:string;time:string;lkdm:string;local:string;road:string):boolean; var F: TextFile; begin //是这里报的错误 result:=false; AssignFile(F,wjmpath); Rewrite(F); writeln(f,hphm); writeln(f,hpzl); writeln(f,speed); writeln(f,xcxs); writeln(f,dcxs); writeln(f,date); writeln(f,time); writeln(f,lkdm); writeln(f,local); writeln(f,road); CloseFile(F); result:=true; end;这都运行了30多分钟了才报的错误真是郁闷亚在Rewrite(F);这句话报错i/0 error 1816的错误非常的郁闷

此文件是不是已经被占用了?另: 你的参数可真多~~~~

这个文件是生成完了后就给移走了亚移动到另外一个文件加里去了亚

"这个文件是生成完了后就给移走了亚移动到另外一个文件加里去了亚 "，那么你移动后加入DeleteFile就可以了！