delphi EOF 判断文件指针是否移动到了文件未尾  
官方Delphi 学习QQ群: 682628230(三千人)\n
频道

delphi EOF 判断文件指针是否移动到了文件未尾


EOF


  功能说明:判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时,则不可以使用Readln函数进行读取文件了。

  参考实例:

  var

    S: String;

    AllText: String;

    F: TextFile;

  begin

  AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。

    Reset(F); // 打开文件

    while not EOF(F) do begin // 使用While循环,一直判断是否到了文件未尾

     Readln(F, S); // 读取一行文本

     AllText := AllText + S;

    end;

  end;

推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.048931121826172 seconds