Лабораторная работа №30

Тема: «Разработка программ создания и обработки типизированных и текстовых файлов с использованием изученных компонентов».

Цель работы: получение навыков составления программ с использованием изученных компонентов.

 

ЗАДАНИЕ

Создайте приложение, которое создает текстовый файл text1.txt и записывает в него текст, введенный пользователем в окно Edit, после чего закрывает файл.

Создайте форму и задайте для ее свойства Caption значение «Создание файла и вывод в него текст из Edit». Разместить на форме компоненты Edit1, Label1. Caption – «Введите текст», Button1. Caption – «Сохранить». Удалите текст Edit1 из соответствующего компонента. Выровняйте компоненты и зафиксируйте их положение на форме, (рис. 24).

 

рис. 24

 

Сохраните файлы модуля (под именем main) и проекта (под именем TextEditFile) в папке Обработка текстовых файлов. Откомпилируйте приложение и запустите его на выполнение. Убедитесь в том, что приложение позволяет пользователю вводить в окно Edit1. Для того чтобы на диске создавался текстовый файл, и текст из окна Edit1 записывался в него, создайте процедуру обработчика события щелчка мышью на кнопке Button1 «Сохранить» и в ней реализуйте создание нового файла и запись в него текста. Для создания процедуры обработчика щелчка мышью на кнопке Button1 выберите в окне Инспектора объектов объект Button1, затем на странице Событий произведите двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1. Button1Click (Sender: TObject);.

Дополните текст процедуры следующим кодом:

var

f: TextFile; {описание файловой переменной}

begin

AssignFile (f, ‘text.txt’); {связь файловой переменной с файлом}

Rewrite (f); {создать новый файл}

Writeln (f, Edit1. Text); {записать в файл}

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

end;

Откомпилируйте программу и запустите ее на выполнение.

 

рис. 25

 

В окне приложения введите текст, как показано на рисунке 25 выше, и щелкните мышью по кнопке Сохранить. Закройте окно приложения и откройте в окне Проводника windows папку Обработка текстовых файлов, в которой сохранены файлы проекта. В списке файлов этой папки вы увидите и вновь созданный файл text.txt.

Дважды щелкните левой кнопкой мыши на имени файла text1.txt. будет открыто окно редактора Блокнот с этим файлом. Убедитесь, что – это тот самый текст, который вы только что вводили в окне приложения.