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

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:24
delphi向一个文件中添加内容

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;

赞