|
Append procedure
----------------------------------------------------------------
Declaration:
procedure Append ( var F : Text );
Example:
var
TextFile : Text;
...
Assign ( TextFile, 'OLDFILE.TXT' );
Append ( TextFile );
Writeln ('This will be written at the end of the existing file
OLDFILE.TXT');
Purpose:
Like Reset, Append is used to open a text file, but instead of positioning
the file pointer to the beginning of the file, Append places the file pointer
at the very end. This way, subsequent writes are appended to the existing data
in the text file. Obviously, the file identifier opened by Append becomes a
write-only file type.
Add by Pancho
You can edit it here
|
|
Adding comments is available only for registered users.
|
|
PycckaR BepcuR
Articles

Library

Downloads

|