编程操作9.键盘鼠标和文件编程

导读3.文件编程DelphiXE8中，文件包括：文本文件、有类型数据文件、无类型数据文件。这里的文件仅指磁盘文件。我们会在接下来的章节中逐步探讨各种文件的操作。....3.文件编程

Delphi XE8中，文件包括：文本文件、有类型数据文件、无类型数据文件。这里的文件仅指磁盘文件。我们会在接下来的章节中逐步探讨各种文件的操作。本节主要针对适用于所有文件的基本操作过程及函数进行介绍，主要包括：关联文件、打开文件、关闭文件、删除文件等基本操作。

3.1关联文件

关联文件是指将文件变量与外部文件之间建立联系，表示后面在程序中通过文件变量来对文件进行操作。关联文件的过程定义格式：

procedure AssignFile(var F: File; FileName: String);

其中：

• F - 表示文件变量，可以是各种类型的文件；

• FileName - 字符串类型的变量，表示某个特定的文件名；

调用该过程时，如果文件名参数为空，文件变量将与标准输入输出文件建立关联。对于已经打开的文件变量，不要再使用该过程调用。

3.2打开文件

要进行文件的读写操作必须先打开文件。

1.以读方式打开文件

通过调用 Reset 过程打开一个已经存在的文件。格式：

procedure Reset(var F: File; [RecSize: Word]);

其中：

• F - 表示文件变量；

• RecSize - 记录长度，当文件为无类型文件时才使用，指定数据传送时的大小；

如果指定的文件不存在，会产生错误；如果文件已经打开，则会先关闭文件然后打开。

打开文件后，文件的操作位置设置在文件的开始。

如果文件是空文件，则 Eof(F) 返回值为 True，否则为 False。

2.以写方式打开文件

通过调用 Rewrite 过程可创建并打开一个新文件。格式：

procedure Rewrite(var F: File; [RecSize: Word]);

参数同 Reset 过程。

如果存在一个同名的文件，则删除原文件后生成新的空文件；如果文件已经打开，则先关闭后重新创建。

打开文件后，文件的操作位置设置在文件的开始。

Eof(F) 返回值一定是 True。

3.3关闭文件

当对文件操作完成后，必须调用关闭文件的操作。关闭文件使用 CloseFile 过程，调用该过程后，文件变量与磁盘文件的关联中断。格式：

procedure CloseFile(var F: File);

调用该过程后，系统将释放文件变量并关闭关联的外部文件。

3.4删除文件

当需要删除一个文件时，可以调用 Erase 过程，格式：

procedure Erase(var F: File);

调用该过程将删除与文件变量 F 关联的文件，在删除文件前会执行关闭文件的操作。

3.5文件的常用基本操作

• 获取最近一次IO操作的状态值

function IOResult: Integer;

• 文件重命名

procedure Rename(var F: File; NewName: String);procedure Rename(var F: File; NewName: PChar);

• 切换当前目录

procedure ChDir(s: Stirng);

• 是否到文件末尾

function Eof(var F: File): Boolean;function Eof(var F: Text): Boolean;

• 获取驱动器的当前目录

procedure GetDir(D: Byte; var S: String);

其中：D表示驱动器，取值为0,1,2,3...，分别代表A,B,C,D,...；

• 删除目录

procedure RmDir(s: Stirng);

• 创建目录

procedure MkDir(s: String);

• 删除文件

function DeleteFile(const FileName:string):Boolean;

3.6文件编程示例

示例：编写一个简单的文件管理器，界面如下图：

新建目录界面：

重命名界面：

本例涉及三个窗体：

主窗体主要组件的属性设置如下：