Delphi append过程在文件的最后追加文本内容

Append 过程
Append 过程为在一个已经存在的文件的最后添加文本做准备工作。过程原型如下：
procedure Append(var F: Text);
调用Append 过程时，要保证文件是以只写方式打开的。参数F 为一个Text File 变量，并经过AssignFile 过程指派给一个外部文件。如果参数F 关联的文件已经被打开，则将文件关闭再重新打开，当前位置设置在文件的最后。
下面的代码能够以只写方式打开文件，并在文件中添加一行内容：
var
F:TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Append(F);
Writeln(F,’写入一行内容’);
CloseFile(F);
end;
end;