Delphi 文件操作（4）Reset

procedure

Reset(

var

F[:

File

;RecSize:

Word

]);

{

作用：

对于文本文件，Reset过程将以只读方式打开文件，对于类型文件和无类型文件，Reset过程将以可读写方式打开文件

procedureReset(varF[:File;RecSize:Word]);

F:File类型变量，可以是任何文件类型；

RecSize：文件的大小，这个参数是一个可选参数，只有当F为无类型文件时才可以被指定。如果F为无类型文件，则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了，则默认的记录大小为128字节。

需要注意：

当该过程打开文件时，如果文件不存在则产生异常。如果文件已经打开，则先关闭文件，然后重新打开，将将文件的指针放到文件的开头处（有点像Append只不过他们两是相反的），默认的文件模式（FileMode）为2，即读写模式。如果文件模式在调用ReSet过程前都没有改变，则尝试打开一个只读文件只失败。当调用ReSet过程后，文件为空，则Eof函数返回True，否则返回False;

}

programTex;
{$APPTYPECONSOLE}
{By:天下第一小贱人}
uses
Windows;

{新建一个TXT文档}

ProcedureNewTxt(FileName:String);
Var
F:Textfile;{定义F为Textfile}
Begin
AssignFile(F,FileName);{将文件名与变量F关联}
ReWrite(F);{创建Txt文档并命名为“FileName”}
Closefile(F);{关闭文件F}
End;

{读取指定的TXT文档}
ProcedureReadTxt(FileName:String);
Var
F:Textfile;
Str:String;
Begin
AssignFile(F,FileName);
Reset(F);
Readln(F,Str);{读取内容并赋值给Str}
Closefile(F);
End;

{先附上原内容在写入新内容}
ProcedureAppendTxt(Str:String;FileName:String);
Var
F:Textfile;
Begin
AssignFile(F,FileName);
Append(F);{附上原来的内容以免原内容被清空}
Writeln(F,Str);{把内容Ser写入文件F}
Closefile(F);
End;

{逐行读取，顾名思义一行一行的读取内容}
ProcedureForTxt(FileName:String);
Var
F:Textfile;
S:String;
Ser:String;
begin
AssignFile(F,FileName);
Reset(F);
whilenotEOF(F)do{循环读取}
begin
Readln(F,S);
Ser:=Ser+S+#13#10;
end;
CloseFile(F);
end;

Begin
//NewTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
//ForTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
//ReadTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
//AppendTxt('aaaaaaaaaaaaaaaaa','i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
Readln;
End.