Node:Append, Next:ArcTan, Previous:AnyFile, Up:Reference
procedure Append (var F: any_file; [FileName: String;]
[BlockSize: Cardinal]);
Append opens a file for writing. If the file does not
exist, it is created. If it does exist, the file pointer is
positioned after the last element.
Like Rewrite, Reset and Extend do,
Append accepts an optional second and third parameter for the
name of the file in the filesystem and, for untyped files, the block
size of the file. (For details, see Rewrite.)
Append, including the BlockSize parameter, is a
Borland Pascal extension. ISO 10206 Extended Pascal has Extend
instead.
The FileName parameter is a GNU Pascal extension.
program AppendDemo;
var
Sample: Text;
begin
Assign (Sample, 'sample.txt');
Rewrite (Sample);
WriteLn (Sample, 'Hello, World!'); { `sample.txt' now has one line }
Close (Sample);
{ ... }
Append (Sample);
WriteLn (Sample, 'Hello again!'); { `sample.txt' now has two lines }
Close (Sample)
end.