Этапы разработки приложения на языке 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.
|
