delphi在文本文件中添加一行|Writeln 过程
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;