Этапы разработки приложения на языке Delphi

Создание приложения в среде Delphi можно условно разделить на несколько этапов:

1. Создание графического интерфейса будущего приложения

С помощью Панели инструментов на форму помещаются управляющие элементы, которые должны обеспечить взаимодействие приложения с пользователем.

2. Задание значений свойств объектов графического интерфейса

С помощью окна «Свойства объекта» задаются значения свойств управляющих элементов, помещенных ранее на форму.

3. Создание и редактирование программного кода

Для создания заготовки событийной процедуры необходимо осуществить двойной щелчок мышью по управляющему элементу. В окне «Редактор кода» появится заготовка событийной процедуры, имя которой состоит из двух частей: имени формы, содержащий управляющий элемент, и имени объекта и имени события (например,TForm1.Button1Click). Затем в окне «Редактор кода» производится ввод и редактирование программного кода процедуры.

4. Сохранение проекта

Т.к. проект включает в себя несколько файлов, рекомендуется для каждого проекта создать отдельную папку на диске. Сохранение проекта производится с помощью меню File:

– Сначала необходимо сохранить форму и связанный с ней программный модуль (файл с расширением pas) с помощью команды Save As.… По умолчанию для файла формы предлагается имя Unit1.pas.

– Далее необходимо сохранить файл главного модуля, который содержит описание проекта (файл с расширением dpr) с помощью команды Save Project As…

– В процессе сохранения в папку проекта записываются вспомогательные файлы: файл с расширением res, описывающий ресурсы; файл с расширением dfm, описывающий форму, и некоторые другие файлы.

5. Компиляция проекта в приложение

Сохраненный проект может выполняться только в самой системе программирования Delphi. Для того чтобы преобразовать проект в приложение, которое может выполняться непосредственно в среде операционной системы, необходимо сохранить проект в исполнимом файле (типа exe). Для компиляции проекта в исполнимый файл используется команда [Project-Compile].

Пример 1. Найти сопротивление цепи из двух последовательно соединенных проводников.

Использованные компоненты:

Edit1 – ввод сопротивления R1;

Edit1 – ввод сопротивления R2;

Label1 – вывод результирующего сопротивления;

BitBtn1 – запуск программы;

BitBtn2 – выход из программы.

Рис. 9. Форма примера 1

Программный код

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; var r1,r2,r:integer;implementation {$R *.dfm}procedure TForm1.BitBtn2Click(Sender: TObject);beginClose;end; procedure TForm1.BitBtn1Click(Sender: TObject); begin r1:=strtoint(edit1.Text); r2:=strtoint(edit2.Text); r:=r1+r2; label3.Caption:='Сопротивление 1-го проводника= '+inttostr(r1)+ #13+'Сопротивление 2-го проводника= '+inttostr(r2)+#13+'Сопротивление цепи= '+inttostr(r) end;end.