当前位置:鱼C工作室 >Delphi > 查看文章

文件系统02 – 零基础入门学习Delphi35

文件系统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。

 

课后练习

练习:文本拷贝(源代码下载

由于时间关系,小甲鱼给大家写了个基本的文件拷贝框架,这个貌似只能拷贝文本文件,大家请自行尝试下能否正确拷贝非文本文件,并加以改进。。。


为您推荐

报歉!评论已关闭.