Delphi-Help

Append

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Append

Описание

Процедура Append предназначена для открытия текстового файла и добавления записей в файл (запись добавляется в конец файла)
Вы должны использовать процедуру AssignFile, чтобы назначить файл для записи. Только после этого возможна запись в файл.
Чтобы добавленные в файл данные сохранились, необходимо закрыть файл процедурой CloseFile.
Используйте 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;

Hello
World
Заключительная строка добавлена

Примечание

Авторизация



Счетчики