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

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:38
delphi在文本文件中添加一行

Writeln 过程

Writeln 过程用来向文本文件中添加一行内容，即在写入内容后面有回车换行符。过程原型如下：

procedure Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] );

Writeln 过程的应用方法和Write 过程的应用方法一样。以下代码功能是向文件中添加两行内容。

如果将Writeln 更改为Write，则只能将两次添加的内容写在一行上。

var

F:TextFile;

begin

if OpenDialog1.Execute then

begin

AssignFile(F,OpenDialog1.FileName);

try

Append(F);

Writeln(F,’第1 行’);

Writeln(F,’第2 行’);

finally

CloseFile(F);

end;

end;

end;

赞