Студопедия — Лабораторная работа №30
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Лабораторная работа №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. будет открыто окно редактора Блокнот с этим файлом. Убедитесь, что – это тот самый текст, который вы только что вводили в окне приложения.

 







Дата добавления: 2014-11-10; просмотров: 603. Нарушение авторских прав; Мы поможем в написании вашей работы!



Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Классификация ИС по признаку структурированности задач Так как основное назначение ИС – автоматизировать информационные процессы для решения определенных задач, то одна из основных классификаций – это классификация ИС по степени структурированности задач...

Внешняя политика России 1894- 1917 гг. Внешнюю политику Николая II и первый период его царствования определяли, по меньшей мере три важных фактора...

Оценка качества Анализ документации. Имеющийся рецепт, паспорт письменного контроля и номер лекарственной формы соответствуют друг другу. Ингредиенты совместимы, расчеты сделаны верно, паспорт письменного контроля выписан верно. Правильность упаковки и оформления....

Виды сухожильных швов После выделения культи сухожилия и эвакуации гематомы приступают к восстановлению целостности сухожилия...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Философские школы эпохи эллинизма (неоплатонизм, эпикуреизм, стоицизм, скептицизм). Эпоха эллинизма со времени походов Александра Македонского, в результате которых была образована гигантская империя от Индии на востоке до Греции и Македонии на западе...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия