70的文件系统培训资料.pptVIP

图8-5 程序设计界面 图8-6 程序运行界面 8.2 典型实例练能力 8.2.1 典型实例一：文本文件的显示、修改和保存 【实例题目】 编写一个文本文件的显示、修改和保存的程序，程序的设计界面如图8-7所示，程序的运行界面如图8-8所示。程序运行时，在文件名后面的编辑框中可以输入要打开的文件名，也可以通过单击其后的【…】按钮来弹出一个打开对话框供用户选择一个文本文件；单击【打开】按钮，将打开相应的文件并把文件的内容显示在Memo组件中；若在程序运行过程中修改了Memo组件中显示的文本内容，然后单击【保存】按钮将把文件保存起来；单击【关闭】按钮将关闭文件和结束应用程序。（要求：不得通过Memo1.Lines的SaveToFile和LoadFromFile方法来打开文件和保存文件） 图8-7 程序设计界面 图8-8 程序运行界面 8.2.2 典型实例二：求学生的平均成绩并保存 【实例题目】 在例8-2的基础上添加求学生平均成绩的功能。程序的设计界面如图8-9所示，程序的运行界面如图8-10所示。程序运行时，单击【求平均成绩】按钮将求出所有学生的平均成绩，然后在【记录号】后面的编辑框中输入一个记录号，单击【显示】按钮将显示相应记录的学生信息，包括平均分。 图8-9 程序设计界面 图8-10 程序运行界面 第8章 Delphi 7.0的文件系统 本章要点： ? 文件的概念与文件类型 ? 在Delphi 7.0中打开、关闭和读写文本文件的方法 ? 在Delphi 7.0中打开、关闭和读写记录文件的方法 ? 与文件有关的函数的使用 （4）读文件中某一位置的数据（随机读） 读取已存在文件的某个位置的数据，一般要经历以下几个步骤： 读打开文件——定位——读取数据——关闭文件 （5）修改文件中某一位置的数据（随机写） 修改已存在文件的某个位置的数据，一般要经历以下几个步骤： 写打开文件——定位——修改数据——关闭文件 3．文件指针 磁盘文件打开后，将会产生一个指针，它指向下一次要读写的数据位置，该指针称为“文件指针”。文件指针具有自动移动的功能，文件刚打开时，文件指针指向磁盘文件中的第1个数据（记录或文本），当读取了这个数据后，文件指针自动指向下一个数据。当把数据写入某个文件时，文件指针总是自动指向下一次要写入数据的位置。文件指针随文件的打开而存在，随文件的关闭而消失。 8.1.2 Delphi 7.0中的文件类型及文件类型变量的定义 1．文本文件变量的定义 使用文件前需要定义一个文件型的变量，文本文件型变量的定义格式如下。 [格式]：Var 文本文件变量名: TextFile; 2．记录型文件变量的定义 记录型文件变量的定义一般要分成三个步骤，下面以定义一个存放学生数据的记录型文件变量为例来说明记录型文件变量的定义方法。 （1）定义记录类型 定义一个学生记录类型，如下： type Student= record //定义通信录记录型 No:String[10]; Name: string[10]; Age:integer; Sex:String[2]; Class:string[30]; end; （2）定义记录文件类型 根据记录类型定义记录文件类型，定义记录文件类型语句的格式如下。 [格式]：记录文件类型名=File of 记录类型名 例如，有下列语句： StudentFile = File of Student;//定义学生记录 文件类型 该语句定义了一个记录文件类型StudentFile。 8.1.3 文本文件的使用 1．文本文件的打开 打开文本文件可分成两个步骤：一是把文件变量与实际的文本文件关联起来；二是打开相应的文本文件。 （1）关联文本文件变量与文本文件 可通过AssignFile过程来关联文件变量与实际的磁盘文件，该过程的格式如下。 [格式]：procedure AssignFile(var F; FileName: string); 例如，有以下语句： var LetterFile:TextFile;//定义文件型变量 …… AssignFile(LetterFile,‘Myletter.txt’);//把文件型变量与文件名联系在一起 （2）打开文本文件