Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Append.

  • Объявление:

    Procedure Append(Var F : Text);

    Где:
    F - переменная текстового файла.

  • Описание:

    Открывает существующий файл для продолжения записи в файл.

  • Замечания:

    Параметр F - переменная текстового файла, которая должна быть связана с внешним файлом при помощи вызова процедуры Assign.

    Append открывает существующий внешний файл с именем, определенным в файловой переменной F. Если внешний файл с данным именем не существует, то происходит ошибка ввода/вывода. Если F уже открыт, то он закрывается и вновь открывается. Текущая позиция файла устанавливается на конец файла.

    Если в последнем 128-байтовом блоке файла присутствует символ Ctrl+Z (символ, с кодом 26), то текущая позиция файла устанавливается, так чтобы перезаписать первый встретившийся Ctrl+Z в блоке. Таким образом, к файлу, который завершается символом Ctrl+Z может быть добавлен текст.

    Если F было назначено, пустое имя, например Assign(F, ''), то после обращения к Append, F относится к стандартному устройству вывода (номер дескриптора = 1).

    После обращения к Append, F становится файлом только для чтения, и указатель позиции файла устанавливается на его конец.

    В режиме {I-} функция IOResult вернет нуль, если операция была успешна, иначе, она вернет отличный от нуля код ошибки.

  • Пример:

    { Пример программы для процедуры Append }
    Uses WinCrt;
    Var F : Text;
    Begin
    Assign(F, 'TEST.TXT');
    ReWrite(F); { Создаем новый файл }
    WriteLn(F, 'Немножко текста ;-)');
    Close(F); { Закрываем файл }
    Append(F); { Добавляем данные к концу файла }
    WriteLn(F, 'Еще немножко текста !');
    Close(F); { Закрываем файл }
    End.



Вернуться к оглавлению справочника