I/O error 183是什么错误（内容见内）(50分)

  • 主题发起人 主题发起人 lhlh_0_0
  • 开始时间 开始时间
L

lhlh_0_0

Unregistered / Unconfirmed
GUEST, unregistred user!
temp:pchar;
i:char;
begin
getmem(temp,255);
gettemppath(255,temp);
mkdir(temp+'index');
for i:='A' to 'Z' do
begin
result:=temp+'index'+'/'+i+'.txt';
assignfile(ifile,result);
rewrite(ifile);<==I/O Error 183???????????
writeln(ifile,i);
closefile(ifile);
end;
结果，到了rewrite（ifile）处就显示I/O Error 183
左看由看，也没有看出错误，望高手指点；
 
出现I/O Error 183一般是读写磁盘错，你可以仔细查一下你的文件名是否有问题，而且在
进行磁盘操作时最好用Try。
 
是不是写错了：
result:=temp+'index'+'/'+i+'.txt';
===========
result:=temp+'/'+'index'+i+'.txt';
 
不好意思，还是没用，
但提供以下信息：
当临时文件夹中不存在该index文件夹以及index里面的文件时时，可以运行；
但临时文件夹中存在该index文件夹以及index里面的文件时，就会出现该错误；
 
ifile还没初始化
 
? 什么意思》？是assign吗，我已经assign过了，请具体说明
 
指教，指教，多多指教
 
showmessage(sysErrorMessage(183))

不能创建已经存在的文件。
 
to jsxjd:请教！rewrite不是有将存在的文件重新覆盖的功能吗，为什么不能
创建已经存在的文件！如果你很忙，就不要回答了
 
你要创建的文件，可能正在使用，或属性是只读的。

var F: TextFile;
begin
AssignFile(F, 'NEWFILE.$$$');
Rewrite(F);
Writeln(F, 'Just created file with this text in it...');
CloseFile(F);
end;
 
谢谢大家
 
您必须登录或注册才可回复。

Similar threads

I
编译错误信息
回复
0
查看
948
import
I
I
一个数列
回复
0
查看
843
import
I
I
控件开发常见问题FAQ
回复
0
查看
811
import
I
I
Delphi编译指令集
回复
0
查看
796
import
I
S
关于 I/O error 103 的问题(50)
回复
5
查看
892
sheng12
S
后退
顶部