Delphi软件开发技术 作者 张世明 P8.pptVIP

第8章 文件操作 Delphi对文件的支持，主要有三类，包括Object Pascal语言对文件的支持、可视组件库（VCL）对文件的支持以及数据库对文件的支持。 8.1???? 文件操作命令 8.2???? 文本文件 8.3???? 非文本文件 8.4???? 文件系统 8.5???? 文件流 8.1 文件操作命令 首先，我们先介绍文件类型、文件定义这些有关文件的基础常识，然后再介绍常用的文件操作命令。 8.1.1 文件的类型 一个文件是同种类型的元素的有序集合，要声明一个文件类型，使用语句： type 文件类型名=File of 类型; 其中：文件类型名是一个有效的自定义文件类型名，类型是某种类型。 由于文件指针不允许含糊，必须明确指定，所以在文件中不能包含动态数组、长字符串、类、对象、指针、变量、构造类型以及其他文件。 8.1.2 文件的定义 在Object Pascal语言中，有两种文件类型，TextFile和File。 TextFile是包含文字的文本文件，File是指记录长度固定的二进制数据文件。 要定义一个文本文件，可以使用以下格式： var TxtFile:TextFile; 要定义一个二进制数据文件，需用到关键字File of再加上数据类型，格式如下： var 文件名:File of 数据类型; 也可以只有关键字File，而没有of和后面的数据类型，此时它表示的是一种无类型文件，允许读写可变长度记录的文件。 有类型的File文件与数组Array、记录Record相似，也是长度固定的数据集合。 8.1.3 文件管理命令 文件管理函数 8.1.4 文本文件命令 文本文件命令 8.1.5 输入输出命令 输入输出命令 8.2 文本文件 在Object Pascal中，文本文件由行组成，而行又由字符组成，每行以行尾标记结束，它是顺序性的。 也就是说，在这类文件中，可以定位到后面的某一行，但如果要回到前面的某行，就必须再重头读起； 写文件时，也不能在文件中插入任何信息，要么覆盖原文件，要么加到文件的结尾。 另外，文件可以读或者写，但不能同时读写。 要定义一个文本文件，可以使用如下语句： var 文件变量名:TextFile; 8.2.1 打开文本文件 打开文件先需要调用AssignFile函数，它可以把文件变量与物理文件关联起来，例如： AssignFile(TheTxtFile,’Example.Txt’); 有三种方法： 就把自定义的文件变量TheTxtFile与文件Example.Txt关联起来，要指出的是，如果关联的文件不在当前目录下，应给出它的完整路径。 然后，就可以打开文件了，打开文件可。 (1). Reset方法，它以读的方式打开文本文件并将文件指针移到文件首，使第一次读操作访问的是文件中的第一行，格式如： Reset(TheTxtFile); 如果用这个方法去打开一个不存在的文件，程序会产生运行错误。 (2). Rewrite方法，它以写的方式创建一个新文件，并将文件指针定位在文件首，使第一次写入的数据出现在文件首部，格式如： Rewrite(TheTxtFile); 如果用这个方法去打开一个已经存在的文本文件，原数据会全部丢失。 (3). Append方法，它以写的方式打开一个已经存在的文件，并把文件的指针定位在文件尾部，这样可以避免丢失原有数据。 如果用这个方法去打开一个不存在的文件，程序会产生运行错误。 8.2.2 关闭文本文件 当对文本文件操作完成以后，必须关闭文件，以防止文件系统被破坏，关闭文件可以使用CloseFile函数，格式如： CloseFile(TheTxtFile); 使用这个函数一般会清除文件缓冲区并让系统更新文件分配表。 8.2.3 写入文本文件 在文本文件命令中我们已经认识到，写入文本文件有两种方式Write和WriteLn，它们的区别是WriteLn在写完数据后加上行结束标记，因此，它也比较常用。 下面来看一个例子： var TheTxtFile:TextFile begin AssignFile(TheTxtFile,’Example.dat’); Rewrite(TheTxtFile); WriteLn(TheTxtFile,’美丽人生’);