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

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

Лабораторная работа №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; просмотров: 635. Нарушение авторских прав; Мы поможем в написании вашей работы!




Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


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

Задержки и неисправности пистолета Макарова 1.Что может произойти при стрельбе из пистолета, если загрязнятся пазы на рамке...

Вопрос. Отличие деятельности человека от поведения животных главные отличия деятельности человека от активности животных сводятся к следующему: 1...

Расчет концентрации титрованных растворов с помощью поправочного коэффициента При выполнении серийных анализов ГОСТ или ведомственная инструкция обычно предусматривают применение раствора заданной концентрации или заданного титра...

Примеры решения типовых задач. Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2   Пример 1.Степень диссоциации уксусной кислоты в 0,1 М растворе равна 1,32∙10-2. Найдите константу диссоциации кислоты и значение рК. Решение. Подставим данные задачи в уравнение закона разбавления К = a2См/(1 –a) =...

Экспертная оценка как метод психологического исследования Экспертная оценка – диагностический метод измерения, с помощью которого качественные особенности психических явлений получают свое числовое выражение в форме количественных оценок...

В теории государства и права выделяют два пути возникновения государства: восточный и западный Восточный путь возникновения государства представляет собой плавный переход, перерастание первобытного общества в государство...

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