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;