文件磁盘相关函数[18]-文本文件读写-追加写入文件 Append

又有好多天没有发表任何文章了。。。这几天尽量补回，下面看代码吧。

procedure TForm1.Button6Click(Sender: TObject); //追加写入文件
var
  fvar:TextFile;  //声明文本文件变量
  f: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar,f);  //变量与文件建立关联
  Append(fvar);  //以追加写入方式打开

  Writeln(fvar, '第三行');
  Writeln(fvar, '第四行');

  CloseFile(fvar);
end;