ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Выполнение задания на работу. Для реализации проекта а) задания на работу требуется создать новую форму, например, VCL Forms Application – Delphi for Win32 или другую в зависимости отДля реализации проекта а) задания на работу требуется создать новую форму, например, VCL Forms Application – Delphi for Win32 или другую в зависимости от версии системы Delphi. Озаглавить форму можно «Расчет». Необходимо вынести на форму компонент Edit1, удалив из компонента Edit1 внутреннюю надпись (Инспектор объектов (Inspector Object), свойства (Properties) – Text). При помощи компонента Label1 требуется подписать компонент Edit1, например, «Ввод данных». Далее на форму выносится компонент Button1. Компонент Button1 (созданную кнопку) можно подписать «Решение». При помощи компонента Label 2 требуется внести на форму надпись «Ответ». Указанные компоненты расположены на палитре компонентов Стандартные (Standart). На рисунке 32 показана созданная форма и установленные на нее вышеуказанные компоненты. Рисунок 32 – Форма с компонентами Далее требуется перейти в код формы (двойной клик по кнопке Решение) и в процедуре procedure TForm1.Button1Click(Sender: TObject) перед словом begin описать две переменных типа real. Ниже описания переменных следует описать файловую переменную типа real. В той же процедуре после слова begin следует перевести одну из двух введенных переменных из строкового типа в числовой тип real. Например, если переменная носила название A, часть кода будет выглядеть следующим образом: A:=strtofloat(edit1.Text). Введенный код означает присвоение тексту, вводимого в поле Edit1, числового типа вместо текстового. В поле Edit1 будет вводиться число и записываться в переменную A. После этого необходимо создать файл типа real. Логическая часть жесткого диска, каталоги и название файла указывается самостоятельно. Расширение файла следует выбрать dat. Далее следует открыть созданный файл для записи и записать в файл переменную, вводимую в поле Edit1. После этого созданный файл можно закрыть. Затем созданный файл требуется открыть для чтения и записать его содержимое во вторую, имеющуюся в программе, переменную. После этого указанную переменную требуется увеличить на три. После указанных действий требуется вывести значение полученной переменной в компоненту label2. Например, если вторая введенная переменная носила имя В, то часть кода будет выглядеть следующим образом: label2.caption:=floattostr(В). После этого файл можно закрыть. Далее следует откомпилировать и запустить программу, а затем сохранить проект. После указанных действий целесообразно убедиться в существовании созданного файла и записанных в него данных. Открывать созданный файл типа real следует через контекстное меню как текст. На рисунке 33 показан примерный код программы. Рисунок 33 – Примерный код программы в соответствии с пунктом а) задания на работу На рисунке 34 показан созданный файл, имеющий название file и располагающийся на диске d в каталоге catalog1. Рисунок 34 – Созданный файл типа real На рисунке 35 показана форма после запуска программы и вывода результатов. Рисунок 35 – Форма после запуска программы и вывода результатов Для реализации проекта б) необходимо создать еще одну форму, например, с названием «Запись». Далее не вынося на форму объектов, необходимо прописать код, позволяющий создавать нетипизированный файл. При этом, чтобы перейти в код формы, необходимо в Инспекторе объектов выбрать закладку Events, найти строку onShow и произвести двойной клик мышью в пустом поле напротив строки onShow. Откроется код пустой формы. После этого необходимо записать в нетипизированный файл несколько произвольных символов. На рисунке 36 представлен код программы, создающей нетипизированный файл в указанном каталоге и записывающей в созданный файл символ с кодом $41 в количестве 100 раз. Значение кода $41 в шестнадцатеричном формате соответствует символу А. Рисунок 36 – Примерный код программы в соответствии с пунктом б) задания на работу После написания кода необходимо убедиться в существовании нетипизированного файла в созданном каталоге и просмотреть содержимое нетипизированного файла, открыв его как текст. На рисунке 37 показано содержимое нетипизированного файла в соответствии с кодом, представленным на рисунке 36. Рисунок 37 – Содержимое нетипизированного файла Код программы, позволяющей изменить в нетипизированном файле произвольный по счету символ на любой другой, представлен на рисунке 38. На рисунке 38 представлен код программы, заменяющий одиннадцатый по счету символ А в файле на символ В. В шестнадцатеричном коде при кодировании текстовой информации символ $42 соответствует символу В. Рисунок 38 – Примерный код программы замены символа На рисунке 39 представлен результат выполнения фрагмента программы, представленного на рисунке 38. Рисунок 39 – Содержимое нетипизированного файла после изменений После указанных действий требуется сохранить проект. Контрольные вопросы 1 Что такое нетипизированный файл? Для чего он необходим? Как его создавать в системе Delphi? 2 Какая процедура в системе Delphi позволяет создать файл? 3 Какая процедура в системе Delphi позволяет открыть файл? 4 Какая процедура в системе Delphi позволяет записывать данные файл? 5 Какая процедура в системе Delphi позволяет считывать данные из файла? 6 Какая процедура в системе Delphi позволяет закрыть файл? Что такое процедуры блочного ввода/вывода? Для чего они применяются? 7 Как установить новую позицию в файле при записи в него данных или считывании информации? 8 Как отредактировать файл, не перезаписывая все существующие в нем данные? 9 Что означают в шестнадцатеричном коде при кодировании текстовой информации символы $41, $42? 10 Может ли существовать проект, созданный в системе Delphi, если на форму не вынесено никаких объектов. Не нашли, что искали? Воспользуйтесь поиском:
|