Rese过程 - Borland Delphi 开发工作者手册

返回介绍

Rese过程

发布于 2019-08-04 字数 792 浏览 1014 评论 0

System

procedure Reset (var F[:File;RecSize:Word]);

Reset 打开一个已经存在的文件。如果F是一个空名。像AssignFile(F,”).在对Reset调用之后,F参考标准输入文件。如果F是一个外部文件,F变成只读型。在一个Reset调用之后,如果文件是空,则Eof(F)是真,否则Eof(F)是假。{$I+}开关使用异常可以处理运行的时间错误,使用{$I-}开关可通过IOResult检查I/O错误。

var

F:file;

begin

{$I-}

AssignFile(F,FileName);

FileMode:=0;{Set file access to read only)

Reset(F);

CloseFile(F);

{$I+}

FileExists:=(IOResult=0)and(FileName()”);

end;{FileExists}

begin

if FileExists(ParamStr(1))then {从命令行中得到文件名}

Canvas.TextOut(10,10,’FileExists’)

else

Canvas.TextOut(10,10,’Filenot found’);

end;

上一篇:Rename过程

下一篇:Rewrite过程

发布评论

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

支持 Markdown 语法,需要帮助?

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