Открытие файла для вывода

Перед выводом в файл его необходимо открыть. Если программа, формирующая выходной файл, уже использовалась, то возможно, что файл с результатами работы программы уже есть на диске. Поэтому программист должен решить, как поступить со старым файлом: заменить старые данные новыми или новые данные добавить к старым. Способ использования старого варианта определяется во время открытия файла.

Возможны следующие режимы открытия файла для записи в него данных:

• перезапись (запись нового файла поверх существующего или создание нового файла);
• добавление в существующий файл.

Для того чтобы открыть файл в режиме создания нового файла или замены существующего, необходимо вызвать процедуру Rewrite(f), где f — файловая переменная типа TextFile.

Для того чтобы открыть файл в режиме добавления к уже существующим данным, находящимся в этом файле, нужно вызвать процедуру Append (f), где f — файловая переменная типа TextFile.

На рис. 19 приведено диалоговое окно программы, которая выполняет запись или добавление в текстовый файл.

Рис.19.Диалоговое окно программы записи-добавления в файл

В листинге 1 приведена процедура, которая запускается нажатием командной кнопки Записать.Она открывает файл в режиме создания нового или замещения существующего файла и записывает текст, находящийся в поле компонента Memo1.

Имя файла нужно ввести во время работы в поле Editl. Можно задать предопределенное имя файла во время разработки формы приложения. Для этого надо присвоить значение, например test.txt, свойству Edit1.Text.

Листинг1. Создание нового или замещение существующего файла

procedureTForm1.Button1Click(Sender: TObject);

Var

f: TextFile; // файл

fName: String[80]; // имя файла

i: integer;

Begin

fName := Editl.Text;

AssignFile(f, fName);

Rewrite(f); // открыть для перезаписи

// запись в файл

for i: =0 to Memol.Lines.Count do // строки нумеруются с нуля

writeln(f, Memol.Lines[i]);

CloseFile(f); // закрыть файл

MessageDlg('Данные ЗАПИСАНЫ в файл ',mtlnformation,[mbOk],0);

end;

В листинге 2 приведена процедура, которая запускается нажатием командной кнопки Добавить.Она открывает файл, имя которого указано в поле Edit1, и добавляет в него содержимое поля Memol.