Выполнение задания на работу. Для реализации проекта а) задания на работу требуется создать новую форму, например, 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, если на форму не вынесено никаких объектов.

Не нашли, что искали? Воспользуйтесь поиском: