Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:08:27
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;

赞