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
Заключительная строка добавлена
 



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