Delphi的文件操作(定义,关联,打开,读写,关闭)
参考自:http://www.cnblogs.com/railgunman/articles/1800318.html
Delphi 中默认有input 和 output 两个文件变量,使用可以不用定义,直接使用。但是,input 只读、output 只写。使用的时候要注意以免引起异常。
文件是由文件名标识的一组数据的集合,文件通常存在磁盘上。源程序、学生档案记录、图形、音乐等均可以作为文件存储在磁盘上。操作系统是以文件为单位对数据进行管理的,也就是说,如果想读取外存介质上的数据,必须先按文件名找到所指定的文件,然后再从文件中读取数据。要向外存介质上存储数据,也必须先建立一个文件(以文件名标识),才能向他输出数据
在程序运行时,常常需要将一些数据(运行的最终结果或中间数据)输出到磁盘上,以后需要的时候再从磁盘中输入到计算机内存。这就要用到磁盘文件
1.文件类型
file是一个文件类型说明符,通过file可以定义文件变量,也可以定义一些新的类型。在Delphi中支持下面3种类型的文件:即文本文件、类型文件和无类型文件(也叫二进制文件)。下面依次介绍3种文件类型变量的定义以及使用方法
Delphi程序设计中,对任何一种文件的操作都可以归纳为:建立->打开->读/写->关闭
2.文本文件
2.1文本文件的概念
在Delphi中定义了TextFIle类型表示文本文件,由字符的ASCII码主场都能够,最小存取单位为字符。文本文件也可以成为ASCII码文件。利用常见的文本编辑器就可以浏览文件内容
文本文件是以行为单位进行读、写操作的。由于每一行长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。在一个打开的文本文件上同时进行读、写是不允许的。
2.2文本文件变量的定义
定义文本文件的语法格式如下
1
2
3
4
|
var //<文件变量名> : TextFile; myTextFile : TextFile; //上面这句就定义了一个文本文件变量myTextFile,下面就可以通过此变量引出一个文本文件 |
2.3文本文件的使用
<1>文件变量与文本关联
在使用文件变量进行操作之前,需要将文本文件与需要操作的文件关联,即给文件变量名赋值。文件变量赋值可以使用过程 AssignFile,过程的语法格式如下:
1
|
procedure AssignFile( Var F; FileName : String ); |
其中,F为文件变量名,定义为无类型参数是为了和所有文件类型兼容;FileName是文件名字符串,是包括路径的文件全称名。例如
1
|
AssignFile(F, 'E:\delphi\program\test.txt' ); |
就将文件变量F 和指定的文件 E:\delphi\program\test.txt 关联起来。后面所有对变量F 的操作都是对指定文件的操作
<2>使用文件变量打开文件
使用不同的过程打开文件,可以有3种方式
1
|
procedure ReWrite( var F: File [; recsize : word ]); |
ReWrite过程创建并打开文件,可以对文件进行写。这里的F 是一个已经和指定文件名关联的文件变量。对于一个已经存在的文件,此操作将会覆盖源文件;如果文件不存在,将建立一个新的空文件。若是类型文件,可用recsieze 指定大小
1
|
procedure Reset( var F : File [; RecSize : Word ]); |
使用Reset 过程以读的方式打开一个文件,此时只能从文件中读取数据。F 为文件变量,打开文件之后,文件指针指向文件开头。如果试图用Reset过程打开一个不存在的文件时,将有I/O错误产生。
1
|
procedure Append( var F: Text); |
使用Append 过程向已经存在的文件追加文本,这个过程仅用于文本文件。当用append 过程打开文件时,文件指针指向文件的尾部,此后输入的数据将添加在原有数据的后面。该过程打开的文件(即 F 关联的文件)必须存在,否则也将出现I.O错误
<3>读/写文件
1))读取文件内容。在以读的方式打开文件之后,可以使用read和readln语句来读取文件内的内容,其声明代码格式分别是:
1
2
|
procedure read([ var F:Text; ]V1[, V2, ..., Vn]); procedure readln([ var F:Text;] V1[,V2, V3,...Vn]); |
其中,F为文本文件。v1、v2、...、Vn等为需要输入的变量,其类型可以为字符串、字符、整数、实数类型。read 和readln 的区别是后者在读取数据之后,将文件指针移至下一行,上次读取的数据与回车符之间的数据被忽略
当读取字符串的时候,必须使用readln过程,否则读完一行数据之后,再使用 read读取字符串将得到空串。当读取整型和实型数据的时候,文件中的数据用空格分隔,且必须复合数据格式,否则将产生I/O错误。
在读取文件时候,还必须判断文件指针是否已经到文件尾部,此时可以使用Eof 函数进行判断,其声明代码如下
1
|
function Eof([( var F : Text)]) : Boolean ; |
当文件指针指到尾部的时候,该函数的返回值为true
2))向文件写入数据。以写的方式打开文件之后,即可向其中写入数据,写入数据使用write 和 writeln 过程,其声明代码如下
1
2
|
procedure writeln ([ var F:Text;] p1[, p2, ..., pn]); procedure write ([ var F :Text;] p1 [,p2, ...,pn]); |
与read 相似,p1、p2...pn等为需要输出的变量,可以是字符串、字符、整数和实数类型。writeln写入数据后还会附加上回车和换行符,而下一次写入的数据将写在新的一行
写入数据时,系统自动将数据转化为字符串形式保存在文件中
<4>使用文件变量关闭文件
无论是输入还是输出,在对文件操作完成后,都应该关闭文件。关闭文件使用 CloseFile 过程,其代码的声明如下
1
|
procedure CloseFile( var F); |
关闭文件之后,系统释放打开文件时使用的资源。特别是写文件时,在调用write 和 writeln 过程时,数据先写入内存缓冲区,只有在缓冲区满或者关闭文件时,才把数据真正写入磁盘文件中,因此写完数据之后不关闭文件可能丢失数据。
例子,使用 ReWrite()过程在程序运行的当前目录下创建一个文本文件 file.txt,并向文件增加5 行文本
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
var textf : TextFile; //定义文件变量 S : String ; I : Integer ; begin AssignFile(textf, 'file.txt' ); //将文件变量textf与当前目录中的“file.txt”文件关联 ReWrite(textf); //创建文件或打开已经存在的文件进行覆盖 for I := 1 to 5 do begin S := 'this is Line #' ; writeln (textf, s, i);; end ; CloseFile(textf); //关闭已经打开的文件 end . |
被创建的文件内包含5行文本,如第三行为:Thisis line#3
若要向一个已经存在的文件追加新文本,应将其中的 rewrite 改为append。以上的程序是向文件中写入字符串和整数。其实,Object Pascal对于所有的数据类型都可以这样处理。下面的程序演示了从文本文件中读取数据的方法。
1
2
3
4
5
6
7
8
9
|
//写入文件 var F : TextFile; begin AssignFile(F, 'c:\test.txt' );; rewrite(F); writeln (F, '你要写入文本文件的内容' ); CloseFile(F); end ; |
1
2
3
4
5
6
7
8
9
10
11
|
//读取文件 var F :TextFile; str : String ; begin AssignFile(F, 'c:\test.txt' ); Reset(F); //Open the file for reading Readln(F, str); ShowMessage( '1, line of textfile:' + str); CloseFile(F); end ; |
Delphi的文件操作(定义,关联,打开,读写,关闭)的更多相关文章
- linux文件操作篇 (二) 打开和关闭文件
2.1 打开文件和关闭文件 #include <sys/types.h>#include <sys/stat.h>#include <fcntl.h> 头文件 i ...
- Delphi的文件操作
参考自:http://www.cnblogs.com/railgunman/articles/1800318.html Delphi 中默认有input 和 output 两个文件变量,使用可以不用定 ...
- delphi关于文件操作集锦
关于文件操作集锦 取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1; interface usesWindows, Messages, SysUtils, Varian ...
- C语言 文件操作6--文件打开方式详解
fopen文件打开模式 r代表read的简写,+代表可读可写,w代表write,b代表bit二进制位,t代表text r 打开只读文件,该文件必须存在r+ 打开可读可写的文件,该文件必须存在(这里的写 ...
- C#对文件操作(基本的读写以及压缩和解压)
主要是针对单个文件进行读写操作和压缩操作:用到的主要C#类有FileStream.FileInfo.StreamWrite.StreamRead.GZipStream. 字符数组和字节数组的转换: ] ...
- Delphi ini文件操作 TIniFile、TMemIniFile
1.使用TIniFile unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co ...
- c语言对文件操作完成后尽量手动关闭
是这样的,我写了一个函数,传给函数文件名,在函数中对文件写入一些内容.在这个函数的后面没有手动使用 fclose. 当在程序中对这个函数调用两次之后,最终把要写入的文件写错了. 在第二次使用 fope ...
- 分享:perl 文件操作总结
发布:thebaby 来源:net [大 中 小] perl 文件操作,包括打开.关闭文件,读取.定入文件等.原文链接:http://www.jbxue.com/article/3153.html 打 ...
- delphi文件操作的总结
csfinal90我的:收件箱资源博客空间设置|帮助|退出 首页 业界 移动 云计算 研发 论坛 博客 下载 更多 windzb的专栏 目录视图 摘要视图 订阅 IT俱乐部创始人杜鸿飞专访 ...
随机推荐
- STL适配器的初步理解
c++中的适配器有三种:容器适配器,迭代器适配器,函数适配器.下面一一介绍: 1.容器适配器:因为这些容器都是基于其他标准容器实现的所以叫做容器的适配器,具体的有stack,queue,priorit ...
- jdbc连接数据库工具类
import java.lang.reflect.Field; import java.sql.Connection; import java.sql.DriverManager; import ja ...
- nyoj 234 吃土豆
描述 Bean-eating * grid. Now you want to eat the beans and collect the qualities, but everyone must ob ...
- python字符集选择
# coding=utf8 或者 # -*- coding:utf-8 -*- 在python2 中默认是ASCII码的字符集,但可以引入其他的字符集 这个需要在头信息中引入: 而在python3中 ...
- New Year Transportation(水)
New Year Transportation Time Limit:2000MS Memory Limit:262144KB 64bit IO Format:%I64d & ...
- Java实现将指定目录内的指定类型的文件归类
这两天在学Java IO流,正好让我产生了将自己的电子书归类的打算,说做就做,Why not?看着自己所学所用能解决生活中的实际问题,是不是非常有成就感,那是必须的! package DepthSea ...
- Zabbix使用外部邮箱服务器发送邮件报警
本来是想自己写一篇文章的,但是看到发现网上有写的不错的,于是乎又抄别人的文章,作为记录. 使用外部邮箱来发生邮件明显好处就是防止其他邮箱服务器当垃圾邮件处理,另一方面能降低收邮件延迟. 下面开始进行使 ...
- openssl 对称加密算法enc命令详解
1.对称加密算法概述 openssl的加密算法库提供了丰富的对称加密算法,我们可以通过openssl提供的对称加密算法指令的方式使用,也可以通过调用openssl提供的API的方式使用. openss ...
- Nohttp网络请求数据,Post以及Get的简单实用以及设置缓存文字的的请求
开局声明:这是基于nohttp1.0.4-include-source.jar版本写的教程 由于nohttp功能强悍,因此需要多种权限,仅仅一个联网的权限是不够的,如果只给了Internet的权限,去 ...
- IBM SPSS Modeler 预测建模基础(一)
1.搜索下载IBM SPSS Modeler 14.1 32位 及 IBM SPSS Modeler 14.1 注册文件(破解布丁): 2.下载train.csv 及 test.csv: train. ...