Delphi 文件操作

文件是同一种类型元素的有序集合，是内存与外设之间传输数据的渠道。文件的本质是一个数据流，所有的文件实际上是一串二进制序列。文件是以行为单位进行读、写操作的。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。Delphi常用TfileStream操作文件，一般步骤如下：

1、打开文件

Filestream:= TFileStream.Create(AFileName: string; Mode: Word);

参数AfileName：文件名；参数Mode：文件打开的方式。Mode由打开模式与共享模式组成，取值见下表：

分类	参数	说明
打 开 模 式	fmCreate	建立文件, 如果指定文件名的文件已经存在，则以写模式打开
	fmOpenRead	只读打开
	fmOpenWrite	以写模式打开文件，写到文件的内容将替换文件以前的内容
	fmOpenReadWrite	读写打开
共 享 模 式	fmShareCompat	共享模式, 兼容 Dos
	fmShareExclusive	他的应用程序不能打开该文件
	fmShareDenyWrite	其他的应用程序只能以只写方式打开
	fmShareDenyRead	其他的应用程序只能以只读方式打开
	fmShareDenyNone	其他的应用程序可以以任何方式打开文件

2、读写文件

function read(var buffer;count:longint):longint; //从文件流当前位置读count字节到缓冲区BUFFER；

function write(const buffer;count:longint):longint; //将缓冲区BUFFER的Count个字节的数据写到文件流当前位置中，覆盖该位置后面的Count个字节的数据；

function seek(offset:longint;origin:word):longint; //设置文件流当前读写指针位置，origin={soFromBeginning,soFromCurrent,soFromEnd}

function copyfrom(source:TStream;count:longint):longint; //从另一文件流中当前位置复制COUNT到当前文件流当前位置；

3、关闭文件

文件的关闭须调用FreeAndNil（FileStream）。