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

lhlh_0_0 · 2002-10-09

temp

char;
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
左看由看，也没有看出错误，望高手指点；

lw86 · 2002-10-09

出现I/O Error 183一般是读写磁盘错，你可以仔细查一下你的文件名是否有问题，而且在
进行磁盘操作时最好用Try。

jsxjd · 2002-10-09

是不是写错了：
result:=temp+'index'+'/'+i+'.txt';
===========
result:=temp+'/'+'index'+i+'.txt';

lhlh_0_0 · 2002-10-10

不好意思，还是没用，
但提供以下信息：
当临时文件夹中不存在该index文件夹以及index里面的文件时时，可以运行；
但临时文件夹中存在该index文件夹以及index里面的文件时，就会出现该错误；

pengjinlongex · 2002-10-10

ifile还没初始化

lhlh_0_0 · 2002-10-10

? 什么意思》？是assign吗，我已经assign过了，请具体说明

lhlh_0_0 · 2002-10-10

指教，指教，多多指教

jsxjd · 2002-10-10

showmessage(sysErrorMessage(183))

不能创建已经存在的文件。

lhlh_0_0 · 2002-10-12

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

jsxjd · 2002-10-15

你要创建的文件，可能正在使用，或属性是只读的。

var F: TextFile;
begin
AssignFile(F, 'NEWFILE.$$$');
Rewrite(F);
Writeln(F, 'Just created file with this text in it...');
CloseFile(F);
end;

lhlh_0_0 · 2002-10-16

谢谢大家

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

lhlh_0_0

Unregistered / Unconfirmed

lw86

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

lhlh_0_0

Unregistered / Unconfirmed

pengjinlongex

Unregistered / Unconfirmed

lhlh_0_0

Unregistered / Unconfirmed

lhlh_0_0

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

lhlh_0_0

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

lhlh_0_0

Unregistered / Unconfirmed

Similar threads