(Delphi文件操作.docVIP

Delphi文件操作 ??? (1) 声明文件类型变量；??? (2) 给文件类型变量指定文件名； ??? (3) 通过文件类型变量打开并且读写文件，必要时进行文件定位； ??? (4) 关闭文件。 1、PASCAL方式访问文件 ??? 文件是由相同数据类型的数据元素组成的序列，文件可以分为三种类型：文本文件，类型文件，无类型文件。文本文件中每个数据元素就是一个字符，占有一个字节，并以回车换行符（#13#10）表示每行的结束；类型文件中每个数据元素的数据类型可以是整数、实型记录型等；无类型文件中每个数据元素是一个字节的二进制数。 ???? 文件和数组在形式上有些类似，但实质上有诸多不同，主要表现为以下三个方面： ??? （1）数组的元素个数一般是固定的，而文件的长度一般是不定的、随即的； ????（2）数组元素总是放于内存中，而文件往往存于外存中； ????（3）数组以“数组名[下标]”的形式访问数组中的任意一个元素，而文件则需要通过文件变量来访问。 ? 1）类型文件 例一、Button1按钮将记录数组XS[0..1]写入文件‘Stu.dat’，Button2将‘Stu.dat’读到记录变量X1,X2，然后用消息框输出。 ??????? ?TYPE? Stu = Record ???????????????????? Xh:integer; ???????????????????? Xm:string[20]; ???????? END; Procedure? TForm1.Buttonclick(Sender:TObject);//记录数组写入文件 ? Const? xs:array[0..1] of?? Stu=((Xh:=405;xm:=张三),(xh:=406,xm:=李四)); ?Var F:File of? Stu; ? begin ???? AssignFile(F,Stu.dat);//关联文件 ???? ReWrite(F);//打开方式（写） ???? Write(F,xs[0],xs[1]);//将数组写到文件 ??? CloseFile(F); ? end; ? procedure TForm1.Button2Click(Sender: TObject);Var?? F:File of Stu;?? x1,x2:Stu;begin? AssignFile(F,Stu.dat);? ReSet(F); //打开方式（读）? Read(F,x1,x2); //从文件中读到记录? CloseFile(F);//关闭F指定文件? showmessageFmt(%d,%s;%d,%s,[x1.xh,x1.xm,x2.xh,x2.xm]);end;??? ? 2）文本文件 例二、Button3将EDIT1指定库名写入文件DBN.txt,Button4将DBN.txt读到变量DBN，然后用消息框输出。 procedure TForm1.Button3Click(Sender: TObject);Var? F:TextFile;? DBN:string;begin? DBN:=edit1.text;? AssignFile(F,ExtractFilePath(Application.ExeName)+DBN.txt);? Rewrite(F);? Writeln(F,DBN);//写入一行字符创到变量DBN? CloseFile(F);end; procedure TForm1.Button4Click(Sender: TObject);Var? F:textfile;? DBN:string;begin? AssignFile(F,ExtractFilePath(Application.ExeName)+DBN.txt);? ReSet(F);? Readln(F,DBN);//读取一行字符创到变量DBN? CloseFile(F);? Showmessage(DBN);end; ? 注意：有类型文件操作的函数一般有：read函数，write函数，EOF函数：判断文件是否结束；而文本文件除了这些函数之外还有readln函数：读取一行字符串，writeln函数：写一行字符串，EOLN：判断是否为文件行尾，Append函数，以追加方式打开文件。 ? 3）无类型文件 通过文件数据块和写入数据块的过程原型说明如下： procedure BlockRead(Var F :File;const? buf;Count:integer[;var? Result:integer]); procedure BlockWrite(Var F :File;const? buf;