文件磁盘相关函数[16]-文本文件读写-覆写文件 Rewrite

文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。
文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。
文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。

1.文件变量与文件名关联: 
AssignFile(VarTxt, FileName);
FileName 如果省略路径将默认当前目录。

2.初始化读写有三种方式:
(1) Reset: 只读打开, 指针移到文件头;
(2) Rewrite: 创建新文件并打开, 只写;
(3) Append: 从尾部追加, 指针当然在文件尾。

文件不存在时使用 Reset 或 Append 会引发一个I/O异常。
最后用 CloseFile 关闭文件。
为保持兼容，Delphi 也允许用户用 Assign 建立关联, 用 Close 关闭文件。

-------------------------------------------------------------------------------------------------------

代码如下：

procedure TForm1.Button4Click(Sender: TObject); //覆写文件
var
  fvar:TextFile;  //声明文本文件变量
  f: string;
begin
  f:='f:\test\Test.txt'; //被操作的文件
  AssignFile(fvar,f); //变量与文件建立关联
  Rewrite(fvar); //覆写打开，会覆盖已存在文件中的内容
  Writeln(fvar,'第一行');
  Writeln(fvar,'第二行');
  CloseFile(fvar); //关闭文件
end;

因为Rewrite(Reset,Append)只是一种初始化的读写方式，并不是函数，所以在此就不多说了，懂得使用就好^_^