文件系统02
让编程改变世界
Change the world by program
文本文件的读操作
可使用 Read 和 ReadLn 过程从文本文件中读取数据，并赋值给相应的变量。
ReadLn 和 Read 过程有一个不同之处，即该过程读取若干个数据后跳到下一行，而 Read 并不跳到下一行。
[格式]
procedure Read( [ var F: Text; ] V1 [, V2,...,Vn ] );
procedure ReadLn( [ var F: Text; ] V1 [, V2,...,Vn ] );
演示两者区别：对比（源代码下载）
通过刚才的演示我们发现：如果读取的数据是数值型，数据之间默认是用空格隔开赋值给每个变量。
那么如果读取的数据是 String 型怎么办呢？（空格本身也是一个字符丫）
这时候空格就不能作为分隔标识，将一直读到换行符为止；如果为了读取指定数量的字符型，变量类型建议是 String[N]型的。
行尾与文件尾的判断
判断当前文件指针是否处于行尾和文件尾，可通过函数 Eoln 和 Eof 函数来实现。
[Eoln]
function Eoln [(var F: Text) ]: Boolean;
用于判断与文件型变量F 相关联的文件的文件指针是否处于行尾，如果处于行尾，则返回值为True，否则返回值为False。
[Eof]
function Eof [ (var F: Text) ]: Boolean;
用于判断与文件型变量F 相关联的文件的文件指针是否处于文件尾（最后一个字符的后面）
如果处于文件尾，则返回值为True，否则返回值为False。
需要注意的是，如果文件为空，Eof函数的返回值也是True。
课后练习
练习：文本拷贝（源代码下载）
由于时间关系，小甲鱼给大家写了个基本的文件拷贝框架，这个貌似只能拷贝文本文件，大家请自行尝试下能否正确拷贝非文本文件，并加以改进。。。
[buy]
获得所有教学视频、课件、源代码等资源打包 [/buy]
[Downlink href='http://kuai.xunlei.com/d/LSSQIZUJYJRB']视频下载[/Downlink]