Next: , Previous: AnyFile, Up: Reference



Append

Synopsis

     procedure Append (var F: any_file; [FileName: String;]
                                         [BlockSize: Cardinal]);

Description

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, Reset accepts an optional second parameter for the name of the file in the filesystem and a third parameter for the block size of the file. The third parameter is allowed only (and by default also required) for untyped files. For details, see Rewrite.

Conforming to

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.

Example

     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.

See also

Assign, Reset, Rewrite, Update, Extend.