4.1.4.4 Append

Append procedure

Example:

var

  fileID: integer;

  fileName: string;

begin

  fileName:= 'listOfTrees.txt';

  fileID:= AssignFile(fileName);

  Append(fileID);                   // this line open the file for writing and appends data to the end of file

  WriteLn(fileID, 'picea, malus');  // this line writes a new values in the file

  CloseFile(fileID);

end.

Output:

the text file before call the example

the text file after call the example

new values are appended in the end

if exists a new line in the end in the file (before call the example)

See also:

AssignFile; Reset; Rewrite; Append; WriteLn; ReadLn; EOF; CloseFile; DeleteFile; SaveStringToFile; SaveStringToFileAsUTF8