Пятница, 29.03.2024, 01:57
Вы вошли как Гость | Группа "Не зарегистрированный"Приветствую Вас Гость | RSS
Главная | Каталог статей | Мой профиль | Регистрация | Выход | Вход
QO.DO.AM
 >>>мир предметника 050202

Форма входа

Основное меню

Меню 050202

Учительская OnLine

Категории раздела
Описание Delphi 7 [200]
От теории к практике
Задачи [61]

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
// Your SEO optimized title page contents

Счетчики

Главная » Архив Информатики и ИКТ » Delphi 7 » Описание Delphi 7 [ Добавить статью ]

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TForm1.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;

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

Листинг 7.2. Добавление в существующий файл 

procedure TForm1.Button2Click(Sender: TObject);

var

f: TextFile; // файл 

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

i: integer; begin

fName := Edit1.Text;

AssignFile(f, fName);

Append(f); // открыть для добавления

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

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

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

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

MessageDlg('Данные ДОБАВЛЕНЫ в файл ',mtInformation,[mbOk],0);

end;



Источник: http://qo.do.am/index/teorija_po_programirovaniju/0-47 СОДЕРЖАНИЕ Delphi 7
Категория: Описание Delphi 7 | Добавил: metalworker (01.05.2013) | Автор: СОДЕРЖАНИЕ Delphi 7 E
Просмотров: 746 | Теги: консоль, form, Borland Delphi 7, Информатика и ИКТ, делфи 7, коды, Delphi 7 помощь, что такое?, программирование, работа
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]


qo.do.am © 2024