文件操作I/O错误123怎么处理 ( 积分: 100 )

我在做一程序时，程序报一错I/O Error 123，查看文件是存在的，跟踪访问文件路径是正确的，怎么会报这种错误
var InFile,OutFile:File;
var InputFile:String;

if not FileExists(InputFile) then exit;
AssignFile(InFile,InputFile);
try
ReSet(InFile,1);
except
ShowMessage(Exception(ExceptObject).Message);
ShowMessage('File '+InputFile+' can not be ReadOnly!');
CloseFile(InFile);
SysUtils.Abort;
end;

怎么没有回答的，自己顶

兄弟，你这段代码有问题。你先告诉我，你想做什么？

{$I-} // 注意加注意加注意加注意加注意加注意加

var InFile,OutFile:File;
InputFile:String;
_ioe:integer;

if not FileExists(InputFile) then exit;
AssignFile(InFile,InputFile);
ReSet(InFile,1);
_ioe:=ioresult;
if (_ioe<>0) then
begin
ShowMessage('File '+InputFile+' operate error: '+trim(inttostr(_ioe)));
end else
CloseFile(InFile);
SysUtils.Abort;
end;

你把出错时的InputFile贴出来看看

问题已经变象处理了，谢谢各位