IOResult函数 - Borland Delphi 开发工作者手册

返回介绍

IOResult函数

发布于 2019-08-04 字数 704 浏览 871 评论 0

System

function IOResult:Integer;

IOResult返回最近I/O完成操作的状态。I/O检查必须是关闭|$I-|开关,来使用IOResult以中断I/O错误。如果一个I/O错误出现I/O检查并被关闭,所有后来的I/O操作被忽略直到一个IOResult的调用。调用IOResult以清楚内部错误标记。另一个处理I/O错误的方法是使用异常操作,可以参阅处理RTL异常。

var

F:file ofByte;

begin

if OpenDialog1.Execute then begin

AssignFile(F,OpenDialog1.FileName);

{$I-}

Reset(F);

{$I+}

if IOResult=0 then

MessageDlg(‘Filesize in bytes:’+IntToStr(FileSize(F)),

MtInfomation,[mb()k],0);

else

MessageDlg(‘Fileaccess error’,mtWarning,[mbOk],0);

end;

end;

上一篇:Int函数

下一篇:IsDelimiter函数

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!