第六章-文件管理(一)(1)

6.1 文件类型和标准过程 

Delphi同Object Pascal一样支持三种文件类型,即:文本文件、记录文件、无类型文件。 

6.1.1文本文件 

文本文件类型的变量用如下方法声明:

var

TextFileVar: Text ; 

文本文件是以行为单位进行读、写操作的。由于每一行长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。而且文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。 

6.1.1.1 文本文件的打开、关闭 

文本文件的打开需要两个步骤:(1). 文件变量与文件名关联;(2). 初始化读写。

联文件变量与文件名调用AssignFile标准过程: 

AssignFile ( TextFileVar , FileName ) ; 

FileName 既可以是全路径名,也可以仅是文件名。对于后者系统将在当前目录下查找。

AssignFile是Delphi新提供的一个函数,其功能等价于Object Pascal中的Assign。而Assign在Delphi中更多地被用作一个方法名。

初始化读写有三种方式:

1. Reset : 为读打开文件并把文件指针移动到文件首;

2. Rewrite : 为写创建一个新文件;

3. Append : 为写打开存在的文件并把文件指针定位在文件尾。

当使用Reset或Append过程而文件不存在时将会引发一个I/O异常。有关I/O异常的处理请参看本章例程和第十二章中的介绍。

文件的关闭很简单,只须调用CloseFile过程即可。

虽然Delphi应用程序在退出时会自动关闭所有打开的文件,但自己动手关闭文件可以确保释放文件句柄,并使程序的可移植性增强。

为保持兼容,Delphi也允许用户用Assign建立关联,Close关闭文件。 

6.1.1.2 文本文件的读写 

从文本文件中读取信息用Read、Readln两个标准过程。

当读入数值时,Read、Readln假定数值是用一个或多个空格分开的,而不是逗号、分号或其它字符。对如下一条语句: 

Read ( TextFileVar , Num1 , Num2 , Num3 ) ; 

如果文件中的数值是:

100 200 300

则能够成功读入,而若文件中的数值是

100 200, 300

则Read读入“200,”并试图把它转化成一个数值时会引发一个异常。

当读入字符是字符串时,Read、Readln过程总是读取尽可能多的字符填充到字符串变量中或一直读到行结束符为止。因此从文本文件中读取格式化的字符串数据,必须声明与其长度相匹配的字符串变量。如果要从文件中读取单词,必须先把文件中的每一行读入字符串,然后再从字符串中逐个分析出单词。或者一次只从文本文件中读入一个字符并测试每个字符后是否是单词断开处。

格式化字符串之间的分隔符应读入到一个临时变量中,而字符串与数值、数值与数值间的分隔符读入时会自动识别剔除。对如下一行数据:

Mon 12:10 40 50

定义 

var

Day: string[3] ;

Time: string[5] ;

Num1, Num2: Integer ;

则须用如下的read 语句读入: 

read ( TextFileVar , Day , c , Time , Num1 , Num2 ) ; 

C为一个临时字符变量。 

6.1.1.3 文本文件的编辑 

在Delphi中实现对一个文本文件的编辑,只须让其与一个Tmemo控件建立关联即可: 

Memo1.Lines.LoadFromFile ( TextFileName ) ; 

这样在TMemo上所做的一切修改当调用Memo部件的SaveToFile方法后都会反映到文件中去。 

6.1.2 记录文件 

记录文件是一种操作更为灵活的文件类型。它允许同时为读和写打开,而且由于记录文件中每条记录的长度固定,所以可随机存取。

记录文件的类型变量可如下声明: 

var

RecordFileVar: file of RecordType; 

RecordType是一个自定义的记录类型。

有关记录文件的操作我们将在下一节中结合例程进行讨论。 

6.1.3 无类型文件 

无类型文件提供了底层的I/O通道,可用于存取可变长度记录的文件。经常用于文件的复制操作中。由于Delphi提供了更好的方法(见第四节),所以无类型文件很少使用。有兴趣的读者可参看BlockRead、BlockWrite两个联机帮助主题。 

6.1.4 Delphi的文件管理标准过程 

根据功能我们把标准过程划分为十一类进行介绍。 

6.1.4.1 文件的打开与关闭 

AssignFile :把一个外部文件名和一个文件变量相关联

Reset :打开一个存在的文件

Rewrite :创建并打开一个新文件(或覆盖原有文件)

Append :以添加方式打开一个文件(只适用于文本文件)

CloseFile : 关闭一个打开的文件

FileOpen :打开一个特定的文件并返回文件句柄

FileCreate :创建一个给定文件名的文件并返回文件句柄

FileClose :关闭一个特定句柄的文件 

后边三个文件主要供系统内部使用,在文件复制的编程中也往往会用到。它们操作的对象是文件句柄而不是文件变量。

时间: 2024-08-01 20:45:51

第六章-文件管理(一)(1)的相关文章

第六章-文件管理(三)(8)

6.4.8.2 状态条的显示 状态条用于显示当前目录和当前选中文件.它们的值在DirectoryOutline 和FileList的Change事件处理过程中修改. DirectoryOutline和FileList最终的Change事件处理过程如下: procedure TFMForm.DirectoryOutlineChange(Sender: TObject); begin CreateCaption; FileList.clear; FileList.Directory := Direc

第六章-文件管理(三)(2)

6.4.5.2 文件拷贝.移动.删除.更名 文件拷贝的关键是使用了以文件句柄为操作对象的文件管理函数,因而提供了一种底层的I/O通道.在Object Pascal中这一点是利用无类型文件实现的. 在文件拷贝中首先检查目标文件名是否是一个目录.如是则把原文件的文件名添加到目标路径后,生成目标文件全路径名.而后提取源文件的时间戳,以备拷贝完成后设置目标文件.拷贝过程中使用了返回文件句柄或以文件句柄为参数的文件管理函数FileOpen.FileCreate.FileRead.FileWrite.Fil

第六章-文件管理(二)(4)

6.4 文件管理综合举例:文件管理器的实现 在本章的最后,我们利用Delphi提供的文件控件和文件管理函数开发一个简单的文件管理器.虽然这一文件管理器还无法和Windows提供的文件管理器相比拟,但它也为一般的文件操作提供了足够多的功能,而且如果读者感兴趣,还可以对它做进一步的扩充.在后边的拖放操作一章中,我们就为它提供了拖放支持,使它看起来更象一个"文件管理器". 6.4.1 设计基本思路 6.4.1.1 窗口设计 文件管理器的主窗口是一个多文档界面(MDI).有关文件.目录的显示和

第六章-文件管理(二)(2)

6.2.8 结果综合 对不同方法的评估结果,可按一定的公式进行综合.当用户按下"计算"按钮时,系统进行计算并把综合结果写入HazAttr只读编辑框中. 为保证结果显示的正确性,每次增加.修改.删除操作确认后HazAttr编辑框清空. 6.2.9 编辑对话框的输入检查 当用户单击"增加"或"修改"按钮时系统将弹出一个编辑对话框,让用户输入或修改记录内容.其中的三个编辑框,一个组合列表框分别对应TMethod 的四个域.由于TMethod的Resul

第六章-文件管理(三)(7)

6.4.7.4 改变当前目录 改变当前目录的实现非常简单,只要修改DirectoryOutline的Directory属性.但需注意的是:当改变后目录所在驱动器也发生变化时应相应修改DriveTabSet的当前值.由于驱动器名与DriveTabSet的索引属性TabIndex之间并没有确定的对应关系,因而需要通过一个循环进行查找匹配. Change Directory的菜单事件处理过程是FileChange,即与文件的移动.拷贝.更名共用一个事件处理过程.详细情况请读者参看(6.4.5.3)中的

第六章-文件管理(三)(4)

6.4.6 其它文件管理功能的实现 在子窗口的Function菜单中,定义了一些其它的文件管理功能: ● Search :查找一个给定名字的文件,若存在则显示该文件属性 ● Disk View :显示当前驱动器的大小和剩余空间 ● View type :确定显示文件的类型 6.4.6.1 文件查找 当用户单击Search菜单项时,程序弹出一个对话框(如图6.10),要求输入待查找的文件名和查找路径.文件名可以是通配符.当用户确认后程序显示第一个匹配文件的属性(如图6.9).查找不到匹配文件则给出

第六章-文件管理(三)(1)

2.画出每个自画项目 这在TabSet的OnDrawTab事件处理过程中完成.这一事件处理过程的参数中包含了待画项目索引.画板.待画区域.是否被选中等.这里我们只利用了前三个参数.事实上利用最后一个参数,我们可以对被选中的标签进行一些特殊的视觉效果处理.这一工作就留给读者自己去完成. procedure TFMForm.DriveTabSetDrawTab(Sender: TObject; TabCanvas: TCanvas; R: TRect; Index: Integer; Selecte

第六章-文件管理(二)(5)

6.4.3 文件控件的联系 在本例中我们使用了一组新的控件:TabSet.DirectoryOutline.FileListBox,用于显示和选择驱动器.目录和文件.与(6.3)中所用方法相比,使用这一组控件需要少量的代码支持. TabSet与DirectoryOutline的联系在TabSet的Click事件处理过程中建立: With DriveTabSet do DirectoryOutline.Drive := Tabs[TabIndex][1]; DirectoryOutline与Fil

第六章-文件管理(一)(3)

6.2 记录文件的应用 6.2.1 任务介绍 在这一节,我们开发一个系统安全性综合评估方法管理系统.系统安全性在复杂项目开发中十分重要,但由于牵涉面广因而很难获得客观.全面的评估值.鉴于此我们提出多角度.多侧面评估而后定量集成的思路,并在此基础上提出了多种安全性综合评估方法.每种方法由不同部门进行评估而后把结果汇总.综合. 为此我们定义如下的记录类型: type TNature = (Micro,Macro); {方法性质,分为微观和宏观两类} TMethod = Record Name: st