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;