| Кафедра: автоматика и инф. технологии
Лабораторная работа
На тему:
"Создание, компиляция и отладка простого приложения"
Екатеринбург, 2008
Программа, создаваемая в среде Delphi в процессе проектирования приложения, основана на модульном принципе. Главная программа состоит из объявления списка используемых модулей и нескольких операторов, создающих объекты для необходимых форм и запускающих приложение на выполнение. Модульность очень важна для создания надежных и относительно легко модифицируемых и сопровождаемых приложений. Четкое соблюдение принципов модульности в сочетании с принципом скрытия информации позволяет производить модификации внутри любого модуля, не затрагивая при этом остальных модулей и главную программу.
Все объекты компонентов размещаются в объектах - формах. Для каждой формы, проектируемой в приложении, Delphi создает отдельный модуль. Именно в модулях и осуществляется программирование задачи. В обработчиках событий объектов размещаются описания алгоритмов, которые в основном сводятся к обработке информации, содержащейся в свойствах одних объектов, и задании по результатам этой обработки свойств других объектов.
Структура файла главной (головной) программы приложения
Delphi.
В процессе проектирования Delphi автоматически создает код головной программы и отдельных модулей. В модули вводятся собственные коды, создавая обработчики различных событий. Но головную программу, как правило, не приходится модифицировать и даже просматривать ее текст (только в исключительных случаях).
Головной файл
приложения Delphi имеет следующую структуру:
Program < имя >;
{ объявление подключаемых модулей, а также локальных типов, классов, констант, переменных, описание локальных функций и переменных }
Begin
{ операторы тела программы }
End.
Типичная головная
программа приложения имеет следующий вид:
Program Project 1;
Uses
Forms,
Unit 1 in ‘Unit 1. pas’ {Form 1}, Unit 2 in ‘Unit 2. pas’ {Form 2 };
{$R *. res }
{ можно поместить описание констант, переменных, функций, процедур, доступных для использования только в пределах данного файла
}
Begin
Application. Initialize;
Application. CreateForm (TForm 1, Form 1);
Application. CreateForm (TForm 2, Form 2);
Application.run;
End.
1) Программа начинается с ключевого слова program
, после которого указывается имя программы (оно совпадает с именем файла, в котором был сохранен проект). Это же имя присваивается исполняемому файлу приложения. По умолчанию используется имя Project1.
2) После заголовка в тексте программы располагается предложение:
Uses
Forms,
Unit 1
in ‘
Unit 1.
pas’ {
Form 1},
Unit 2
in ‘
Unit 2.
pas’ {
Form 2 };
В этом предложении перечисляются модули, загружаемые программой. Первый модуль Forms является системным, а следующие - модулями разработанными самостоятельно форм. Данный пример подразумевает, что в проекте были созданы две формы с именами Form1, Form2 в модулях Unit1, Unit2. Заключенные в фигурные скобки название форм представляют собой комментарии.
3) Следующая строка текста - {$
R *.
res }
- представляет собой директиву компилятора, связанную с использованием файлов ресурсов. Указанный файл должен быть файлом ресурсов Windows. По умолчанию используется расширение. RES для файлов ресурсов.
4) Первый оператор в теле программы Application.
Initialize
; - инициализирует приложение, следующий за ним оператор Application.
CreateForm
(TForm 1, Form 1); и Application. CreateForm (TForm 2, Form 2); - создают объекты формы1 и формы2, последний оператор Application.ru
n
; - начинает выполнение приложения.
Общая структура файла модуля:
Unit < имя модуля >;
Interface
// Открытый интерфейс модуля (могут помещаться списки подключаемых модулей, объявление типов, констант, переменных, функций и процедур, к которым будет доступ из других модулей)
Implementation
// Реализация модуля (могут помещаться списки подключаемых модулей, объявление типов, констант, переменных, функций и процедур, к которым не будет доступа из других модулей)
Initialization // (
Необязательный раздел - операторы выполняются один раз при первом обращении к модулю)
Finalization // (
Необязательный раздел - операторы выполняются при любом завершении работы модуля)
End.
Рассмотрим теперь текст модуля с пустой формой:
Unit
Unit1;
Interface //
Открытый интерфейс модуля
Uses
{ Список подключаемых модулей }
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs;
Type
{ Объявление класса формы }
TForm1 =
class (
TForm)
Private //
закрытый раздел класса
Public //
открытый раздел класса
End;
Var
Form 1: TForm1;
Implementation //
Реализация модуля
{$
R *.
dfm }
End.
1) Модуль начинается с ключевого слова UNIT
, после которого указывается имя модуля. Оно совпадает с именем файла, в котором был сохранен модуль. Текс модуля состоит из двух основных разделов: открытый интерфейс модуля и реализация модуля. Внешние модули не могут видеть типы, переменные, константы, функции и процедуры, размещенные в разделе реализации.
2) После предложения USES
, содержащего список подключаемых модулей, располагается заготовка объявления класса формы. Имя класса формы - TForml. Класс содержит два раздела: открытый раздел класса (PUBLIC) - то, что объявлено в этом разделе доступно для других классов и модулей, закрытый раздел класса (PRIVATE) - то, что объявлено в этом разделе доступно в пределах данного модуля.
3) За объявлением класса формы следуют строки:
Var
Form 1:
TForm1;
Таким образом, объявляется переменная Form1 класса TForm1.
4) Затем следует пустой раздел реализации INPLEMENTATION
, в котором содержится только директива компилятора {$R *. dfm }, обеспечивающая компоновку файлов ресурсов форм.
Задание 1. Создать приложение, которое обеспечивает ввод двух целых чисел, по щелчку на кнопке с символом "=" вычисляет их сумму и выводит значение результата.
Решение:
После запуска Delphi создайте новый проект при помощи команды File>New>Application (Файл>Создать>Приложение). В результате создания проекта приложения в окне будет раскрыто окно формы, на которой можно размещать визуальные компоненты проекта.
Далее выполните следующее:
Сохраните новый проект File>Save Project As (Файл>Сохранить проект как).
В окне Save Unit1 As (Сохранить Unit1 как) откройте диск S и создайте новую папку для файлов создаваемого проекта и назовите ее "Сумма двух целых чисел".
Затем в этом же окне откройте созданную папку и нажмите кнопку СОХРАНИТЬ.
После сохранения файла модуля Unit1. pas откроется окно Save Project As (Сохранить проект как). Задайте имя проекта "SUMMA" и нажмите кнопку СОХРАНИТЬ.
Изменим свойства формы:
Для изменения размеров формы достаточно захватить угол окна формы и, не отпуская левую кнопку мыши, перетащить мышь, задавая требуемый размер формы (или указать в свойствах размеры: Client
Height
- 489, Client
Width
- 730).
Измените надпись в заголовке формы с помощью Инспектора объектов. Для этого выберите свойство Caption
(Заголовок) и задайте новое значение - "Сумма двух целых чисел".
Измените цвет формы с помощью Инспектора объектов. Для этого выберите свойство Color
и измените его значение на clWindow (цвет окна), поверхность формы изменит свой цвет.
Размещение на форме компонентов
Edit1, Edit2, Edit3, Label1, Button1. Для размещения компонентов на форме выполните следующее:
Откройте палитру компонентов Standard.
Затем щелкните на значке соответствующего компонента и перетащите его на форму.
Задайте положение и размер компонента при помощи мыши, как показано на рисунке (рис.1):
Рис.1 Пример формы с компонентами
Изменим свойства компонентов
на форме:
Выберите компонент Label1 и задайте свойство Caption компонента Label1 - "плюс".
Измените цвет, стиль и высоту шрифта компонента Label1. Для этого выберите свойство Font
и щелкните на рядом расположенном знаке плюс. Откроется таблица свойств. Введите следующие значения: Color
- clPurple, Size
- 20.
Аналогичным образом задайте свойство Caption
компонента Button1 - "равно" и размер и цвет символов.
Удалите текст Edit1, Edit2, Edit3 в соответствующих компонентах. Для этого выберите свойство Text
и удалите текст.
Добавьте на форму три объекта Label, расположите их над объектами Edit и задайте их свойствам Caption
значения "Слагаемое", "Слагаемое" и "Сумма" соответственно.
Измените цвет, стиль и высоту шрифта добавленных компонентов используя свойство Font
и Style
.
Сохраните изменения, внесенные в проект, нажатием кнопки Save All (сохранить все) в стандартной панели инструментов.
Для просмотра содержимого проекта Delphi откройте окно Проводника и просмотрите папку проекта. Проект состоит из форм, модулей, установок параметров проекта, ресурсов и т.д. Вся эта информация размещается в файлах. Многие из этих файлов автоматически создаются Delphi, когда строится приложение. Главной частью приложения является файл summa. dpr - файл проекта, содержащий код на языке Object Pascal, с которого начинается выполнение программы и который обеспечивает инициализацию других модулей. Он создается и модифицируется Delphi автоматически в процессе разработки приложения. Имя, присваиваемое файлу проекта при его сохранении, становится именем исполняемого файла (в нашем примере - summa. exe). Другие файлы проекта:
Unit1. pas - файл модуля;
Unit1. dfm - файл формы;
Summa. dof - файл параметров проекта;
Summa. res - файл ресурсов;
Unit1. ~dfm, Unit1. ~pas - файлы резервных копий.
После просмотра списка файлов проекта закройте окно Проводника и активизируйте окно Delphi.
Запустите программу на выполнение при помощи команды Run→
Run
или нажатием кнопки Run
на панели инструментов или клавиши F9
. После этого на экране компьютера появляется окно созданной вами формы с компонентами, в которые можно вводить значения, но приложение не будет выполнять каких-либо вычислений, т.к выполняющий вычисления фрагмент программы не был создан. Завершите работу приложения нажатием клавиш Alt +
F4
.
Создание кода - обработчика события
.
Для того чтобы приложение выполняло вычисление при щелчке на кнопке Button1 с изображением символа "равно", следует написать код обработки этого события. Для создания кода обработки события следует воспользоваться страницей EVENTS (Событие) в окне Инспектора объектов.
Активизируйте объект Button1 и выберите на странице Событий событие OnClick (это событие нажатия левой кнопки мыши по данному объекту).
Произведите двойной щелчок на пустом поле списка этого события. После этого курсор помещается в окно Редактора кода. В этом окне в разделе interface
находится запись процедуры обработчика события:
Procedure TForm1. Button1Click (Sender: TObject);
В разделе implementation
располагается текст заготовки этой процедуры:
Procedure TForm1. Button1Click (Sender: TObject);
Begin
…
End;
Курсор будет находиться в пустой строке между ключевыми словами begin
и end
. Этот код является заготовкой для обработчика события, которую автоматически создала интегрированная среда Delphi.
Так как в задаче требуется выполнить сложение двух целых чисел, а результат их сложения также является целым числом, то в разделе описания переменных следует ввести следующее описание: var
a,
b,
c:
integer; -
два слагаемых и сумма.
Так как в приложении для ввода чисел-слагаемых используются окна редактирования Edit1, Edit2, то необходимо при помощи процедуры StrToInt
преобразовать строки в целые числа. Для вывода результата суммирования в окне редактирования Edit3 нужно преобразовать число в строку функцией IntToStr
. Поэтому в основном теле процедуры обработки события следует ввести следующий текст:
a: = StrToInt (Edit1. text);
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c);
Целиком процедура обработки события щелчка на кнопке Button1 будет выглядеть следующим образом:
Procedure TForm1. Button1Click (Sender: TObject);
var a, b, c: integer;
Begin
a: = StrToInt (Edit1. text); {преобразование текстовой строки в целое число}
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c); {преобразование целого числа в текстовую строку}
End;
Запустите приложение на выполнение. Введите два слагаемых и, нажав кнопку с надписью "равно", запустите процедуру обработки события - вычисление суммы двух целых чисел.
Сохраните все изменения внесенные в проект и закройте его.
|
