delphi向一个文件中添加内容|Write 过程

Write 过程
Write 过程用来向一个文件中添加内容。过程原型如下：
procedure Write( [var F: Text; ] P1 [ , P2,..., Pn] ); //文本文件
procedure Write(F, V1,...,Vn); //有类型文件
在使用Write 过程之前，首先要AssignFile 过程指派给一个外部文件，然后以写文件的方式打开。
以下代码实现了向一个文件中添加内容的功能。
var
F:TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
try
Append(F);
Write(F,’添加内容’);
finally
CloseFile(F);
end;
end;
end;