Delphi程序设计教程 教学课件 作者 吴文虎 等 09.ppt

《Delphi程序设计教程 教学课件 作者 吴文虎 等 09.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi程序设计教程第9章文件管理9.1Delphi文件管理9.2文件管理与操作实践9.1Delphi文件管理9.1.1文本文件文本文件是含有标准ASCII字符的简单文件类型，文本文件中的数据一般是逐行顺序存储和读取的，每行都以回车（#13）和换行（#10）结束。由于每一行长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。而且文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。声明文本文件类型的方式如下：varFile1:TextFile;9.1Delphi文件管理9.1.1

2、文本文件1.文本文件的打开文件变量与文件名关联；AssignFile(TextFileVar,FileName);初始化读Reset(TextFileVar)初始化创建并写文件Rewrite(TextFileVar);初始化添加Append(TextFileVar);9.1Delphi文件管理9.1.1文本文件2.文本文件的读写Read：从文件中读取记录数据。procedureRead([varF:Text;]V1[,V2,...,Vn]);Readln：从文本文件读取一行文本。procedureReadLn([varF:Text;

3、]V1[,V2,...,Vn]);Write：写数据记录到文件procedureWrite([varF:Text;]V1[,V2,...,Vn]);Writeln：写一行文本到文件procedureWriteln([varF:Text;]V1[,V2,...,Vn]);3.文本文件的关闭CloseFile(f);4.文本文件的编辑其与一个TMemo组件建立关联即可：Memo1.Lines.LoadFromFile(TextFileName);9.1Delphi文件管理9.1.2二进制文件记录文件是一种操作非常灵活的文件类型，它允许同

4、时为读和写打开，而且由于记录文件中每条记录的长度固定，所以可随机存取。varRecordFileVar:fileofRecordType;无类型文件就是文件类型不固定，也就是记录的长度可以变化。无类型文件提供了很大的灵活性，但是控制较为复杂。无类型文件提供了底层的I/O通道，可用于存取可变长度记录的文件。经常用于文件的复制操作中。varMyFile:File;9.1Delphi文件管理9.1.3其它Delphi文件管理常用函数1.文件操作常用函数AssignPrn：将一个textfile变量与打印机关联，写向textfile变量的内

5、容将直接送往打印机。BlockRead：从一个打开的文件中将一个或多个记录读到一个变量中。BlockWrite：将变量中的一个或多个记录写到文件中去。DeleteFile：将一个文件从从记录盘上删除，如果文件不存在或无法删除，则返回False。Eof：判断是否到了文件的结尾。如果文件为空或当前位置在最后一个字符之后，则返回True；否则，返回False。9.1Delphi文件管理9.1.3其它Delphi文件管理常用函数1.文件操作常用函数Eoln：测试文件指针是否指向一行的最后，适用于文本文件。如果当前的位置在一行的末尾或Eof(

6、F)函数返回的是True，则Eoln返回的是True；否则，返回False。FileExists：测试指定文件名的文件是否存在。如果文件存在，返回True；否则，返回False。FileGetAttr：获取一个文件的属性设置。FilePos：获取文件的当前位置。如果当前位置在文件的最开始，则返回0；否则，返回值为当前位置的字节偏移量。9.1Delphi文件管理9.1.3其它Delphi文件管理常用函数1.文件操作常用函数FileSearch：在指定的路径中查找指定的文件。其中参数DirList中可以包含多个路径，各个路径之间使用分号

7、隔开。如果查找到符合条件的文件，则返回该文件名；否则，返回一个空字符串。IOResult：返回最后一次I/O操作的状态。通过IOResult函数可以检查是否有I/O操作错误。此外，利用“错误处理(exceptionhandling)”也可以检查I/O错误。Seek：在文件中设置当前位置。SeekEof：判断是否到了文本文件的结尾。SeekEoln：检测文件的当前位置是否位于一行的末尾。9.1Delphi文件管理9.1.3其它Delphi文件管理常用函数2.目录操作常用函数ChDir：改变当前的目录。如果指定路径中包含有驱动器号(盘符

8、)，则相应地改变当前的驱动器。CreateDir：新建一个目录。如果创建成功，则返回True；否则，返回False。DirectoryExists：检测指定的目录是否存在。如果存在，函数则返回True；否则，返回False。如果在参数