Delphi 程序设计-课件 第九章 文件管理新.pptVIP

第9章 文件管理 教学目的 ? 了解Delphi文件类型 ? 掌握文件操作常用函数和过程 ? 掌握目录操作常用函数和过程 ? 掌握文件名操作常用函数 ? 掌握文件控件的使用 文件是同一类型元素的有序集合，是内存与外设间传输数据的渠道。任何一个程序都要与文件打交道。本章主要介绍Delphi文件管理的基本概念和标准过程/函数，同时介绍Delphi提供的文件控件的使用方法，并通过实例演示Delphi文件管理功能的应用。 9.1.2 类型文件 如果使用file声明文件对象时使用了一定的类型，例如Byte、Integer和用户自定义的类型等，则称定义的文件为类型文件。就好像处理表中的记录一样，可以把Object Pascal的数据结构保存到磁盘文件中，也可以将数据从文件中直接读入数据结构中。保存Pascal数据结构的文件称为记录文件。为演示此类文件的使用，可以声明如下记录结构： Tperson=packed record Firstname: string[20]; LastName: string[20]; Age: Integer; Socialcode: Integer; End; 应该注意包含Ansi字符串、变量、类实例、接口或动态数组的记录不能写入类型文件中。 假设要在—个文件中保存一个或多个这样的记录。可以来用前面的方法，也可以通过声明一个下面这样的记录来实现： PersonFile: file of Tperson; 9.1.3 无类型文件 一个无类型文件的声明如下所示： var Untypedfile: file; 这样就声明了一个由数据块序列组成的文件，每个数据块为128字节大小的数据。 现在，对无类型文件数据的读、写操作就可以利用数据块实现。可以利用BlockRead从无类型文件读出数据，也可以利用BlockWrite向无类型文件写入数据。这两个过程声明如下： procedure BlockRead(Var f:file;Var buf;count:integer[;var result:integer]); procedure BlockWrite(Var f:file;Var buf;count:integer[;var result:integer]); BlockRead和BlockWrite至少有三个参数。第一个是无类型文件变量f；第二个是包含写入或读出的数据的缓冲区变量buf；Count则用来指定本次操作读、写记录的数量。Result是一个可选参数，当进行读操作时，它返回实际读取的记录数目；当进行写操作时，它返回实际写入的记录数目。如果result和count数值不一致则可能是磁盘空间不足。 9.1.4 文件对话框控件 (1) OpenDialog控件 通过TopenDialog控件可选择并打开文件。在显示“打开文件”对话框前，要对TopenDialog控件的一些属性进行设置。 Filter属性：文件类型过滤器。 FilerIndex属性：设置当对话框一打开的时候选中的文件过滤器，数值从1开始计算。 InitialDir属性：设置对话框打开时定位的目录。如果默认或指定目录无效，则指向当前工作目录。 Options属性：设置打开对话框的出现模式和操作模式。 Title属性：设置对话框标题中显示的内容。 (2) SaveDialog控件 通过SaveDialog控件可以选择并保存文件。SaveDialog控件属性和使用方法与OpenDialog控件非常相似。 (3) OpenPictureDialog控件 通过OpenPictureDialog控件可以选择并打开图形文件。OpenPictureDialog控件具体用法基本与OpenDialog控件相同，只是对话框在显示的时候多了一个可以预览图形的矩形区域。如果选中的图形可以被TPicture类识别，则图形会在预览区域中显示。 (4) SavePictureDialog控件 通过SavePictureDialog控件可以选择并保存图形文件。SavePictureDialog控件的属性和使用方法与SaveDialog控件和相似。 9.2 文件管理常用函数和过程 (10) SelectDirectory函数 通过显示一个对话框来让用户选择一个目录。应当注意在使用前要在uses语句中添加包含File