Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:11:43
delphi文本文件类型的使用方法详解

在Delphi 中把文件分为3 种：文本文件、类型文件和无类型文件。文本文件指可以被任意文件编辑器读取的ASCII 文件。类型文件指包含由程序员定义的数据类型的文件。无类型文件包含了其他所有的类型，它是对包含任意格式或无格式数据的文件的统称。

File 是Pascal 语言中保留字，它是一个类型说明符，通过File 可以声明文件对象，也可以定义一些新的类型，然后使用新的类型来声明文件对象。

文本文件

ASCII 字符的文件可以通过TextFile 类型说明符来声明，即“纯文本文件”格式。文本文件保存数据的优点是：利用任何文字编辑器都可以浏览其中的内容。在对文本文件进行任何处理之前，首先要打开此文本文件。声明变量格式如下：

var

MyTextFile:TextFile;

通过MyTextFile 变量可以来引用一个文本文件。

打开一个文件有如下两步。

第1 步，调用AssignFile()将文件变量与一个文件关联起来，如：

AssignFile(MyTextFile, ’TextFile.txt’);

第2 步，打开文件。打开文件有3 种方式：使用Rewrite 过程创建并打开文件，对于一个已经存在的文件，此操作将使文件被覆盖；使用Reset 过程只读地打开一个文件；使用Append 过程可以向已经存在的文件追加文本。

注意：Reset 将以可读写方式打开类型文件和无类型文件。

使用CloseFile 来关闭一个已经打开的文件。

下面利用一个示例来对文本文件只读打开、创建和追加等操作方法进行介绍。

（1）新建一个项目。在窗体中添加一个Memo 组件，用于输入创建文本文件的初始内容；添加3个Button 组件，它们的Caption 属性分别为“只读打开”、“创建”和“追加”。

（2）为“只读打开”按钮编写代码，对打开的文件进行写入测试。

procedure TForm1.Button1Click(Sender: TObject);

var

MyTextFile:TextFile;

begin

AssignFile(MyTextFile,’TextFile.txt’);

Reset(MyTextFile);

try

Writeln(MyTextFile,’测试写入。’);

except

ShowMessage(’不能写入。’);

end;

CloseFile(MyTextFile);

end;

（3）为“创建”按钮编写代码，创建一个名为TextFile.txt 文件，并将Memo1 中的内容写入到新创建的文件中。

procedure TForm1.Button2Click(Sender: TObject);

var

MyTextFile:TextFile;

begin

AssignFile(MyTextFile,’TextFile.txt’);

Rewrite(MyTextFile);

try

Writeln(MyTextFile,Memo1.Lines.Text); //将Memo1 的内容写入文本文件

finally

CloseFile(MyTextFile);

end;

end;

（4）“追加”按钮编写代码，向打开的文件末尾追加一行文字。

procedure TForm1.Button3Click(Sender: TObject);

var

MyTextFile:TextFile;

begin

AssignFile(MyTextFile,’TextFile.txt’);

Append(MyTextFile);

try

Writeln(MyTextFile,’向文件末尾追加文字。’);

Flush(MyTextFile); //确保文本文件已经被写入

finally

CloseFile(MyTextFile);

end;

end;

赞