Node: Append, Next: ArcCos, 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.