Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:08:29
delphi CloseFile过程关闭文件

CloseFile 过程

CloseFile 过程用来关闭文件，同时将文件记录盘上的文件与相关文件变量断开联系。过程原型如下：

procedure CloseFile(var F);

通常将CloseFile 语句放在Finally 语句块中执行，这样，一旦文件操作代码出现异常也可以关闭文件。例如上面Append 过程的代码可以用Finally 语句编写，以保证关闭文件。

var

F:TextFile;

begin

if OpenDialog1.Execute then

begin

AssignFile(F,OpenDialog1.FileName);

try

Append(F);

Writeln(F,’写入一行内容’);

finally

CloseFile(F);

end;

end;

end;

赞