Append

открывает текстовый файл, для добавления записей в файл
( добавляет в конец файла )

|| procedure Append ( var FileHandle : TextFile ) ;

Описание:

    Delphi процедура Append предназначена для открытия текстового файла и добавления записей в файл (запись добавляется в конец файла)

    Вы должны использовать процедуру AssignFile, чтобы назначать файл для записи. Только после этого возможна запись в файл.

    Чтобы добавленные в файл данные сохранились, необходимо закрыть файл процедурой CloseFile.

    Используйте Write или WriteLn для записи данных в файл.

Пример кода:

var
   myFile : TextFile;
   text : string;

begin
   // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);

   // Write a couple of well known words to this file
   WriteLn(myFile, 'Hello');
   WriteLn(myFile, 'World');

   // Close the file
   CloseFile(myFile);

   // Reopen to append a final line to the file
   Append(myFile);

   // Write this final line
   WriteLn(myFile, 'Final line added');

   // Close the file
   CloseFile(myFile);

   // Reopen the file for reading
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
   ReadLn(myFile, text);
   ShowMessage(text);
   end;

   // Close the file for the last time
   CloseFile(myFile);
end;

Результат выполнения:

Hello
World
Final line added

Клуб программистов

Delphi programming

Append

Описание:

Пример кода:

Результат выполнения: