Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)
System unit
procedure Append ( var FileHandle : TextFile ) ;
Описание
Процедура Append предназначена для открытия текстового файла и добавления записей в файл (запись добавляется в конец файла)
Вы должны использовать процедуру AssignFile, чтобы назначить файл для записи. Только после этого возможна запись в файл.
Чтобы добавленные в файл данные сохранились, необходимо закрыть файл процедурой CloseFile.
Используйте Write или WriteLn для записи данных в файл.
Похожие команды
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
TextFile Объявляет типа файл для того, чтобы сохранить строки текста
Write Записывает данные в бинарный или текстовый файл
WriteLn Записывает законченную строку данных в текстовый файл
Пример кода : Добавление строки текста в конец существующего файла
var
myFile : TextFile;
text : string;
begin // Попытка открыть файл Test.txt
для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile); // Запись нескольких известных слов в
этот файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World'); // Закрытие файла
CloseFile(myFile); // Повторное открытие для добавления
в конец файла заключительной строки Append(myFile); // Write this final line
WriteLn(myFile, 'Заключительная строка добавлена'); // Закрытие файла
CloseFile(myFile); // Повторное открытие файла для
чтения
Reset(myFile); // Показ содержимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end; // Закрытие файла в последний раз
CloseFile(myFile);
end;