[ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
(Under construction.)
procedure Extend (var F: any file; [FileName: String;] [BlockSize: Cardinal]); |
`Extend' 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 `Append' do, `Extend' 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 section 9.233 Rewrite.)
`Extend' is an ISO-10206 Extended extension. Borland Pascal Pascal has section 9.11 Append instead. The `BlockSize' parameter is a Borland Pascal extension. The `FileName' parameter is a GNU extension.
program ExtendDemo; var Sample: Text; begin Assign (Sample, 'sample.txt'); Rewrite (Sample); WriteLn (Sample, 'Hello, World!'); { `sample.txt' now has one line } Close (Sample); |
section 9.18 Assign, section 9.227 Reset, section 9.233 Rewrite, section 9.292 Update, section 9.11 Append.