Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Append
Процедура
Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла) 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;
Hello
World
Заключительная строка добавлена
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия