Процесс создания исполняемого файла в Delphi

Создаваемое в Delphi приложение состоит из набора файлов:

- файла с исходным текстом модулей, которые имеют расширение.pas;

- файла формы.dfm – это бинарный или двоичный файл, в котором содержится описание всех компонент, входящих в данную форму.

Чтобы среда Delphi знала какие файлы относятся к данному приложению создается еще один файл, называемый файлом проекта с расширением *.DPR.

Процесс создания exe-файла иллюстри- руется схемой:

Для каждого файла проекта *.dpr формируется соответствующий код программы, которая может иметь вид:

Program Project1; //имя проекта

Uses Forms,

Unit1 in ‘Unit1.Pas’ {Form1}

{$R*.Res}

begin

{$R*.RES}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Forms – стандартный модуль, в котором описана форма; Unit1 – наш Unit; ‘Unit1.Pas’ – имя файла, где будет храниться наш Unit.

Здесь Application – это объект класса ТАpplication. Этот объект создается автоматически и он инкапсулирует важнейшие свойства и методы любой программы, а именно: он является посредником между программой и ОС Windows.

Метод Interface осуществляет ряд вспомогательных действий, необходимых для работы под управлением ОС Windows.

Метод CreateForm создает и показывает на экране окно главной формы.

Метод Run реализует бесконечный цикл получения и обработки поступающих сообщений.

Файл проекта (с расширением *.dpr) автоматически формируется Delphi.

Пример: разработать программу, которая управляется следующей формой.

Пусть по нажатию кнопки вызывается метод нашего класса, который присваивает некоторое значение полю класса и показывает его затем в окошке Label1. Будем полагать, что наш класс описывается в отдельном Unit.

Unit создаваемый с помощью Delphi имеет следующий вид:

Unit Unit1;

Interface

Uses … // подключение модулей

Type

TForm1 = Class(TForm)

Label1: TLabel;

Button1: TButton;

Procedure Button1Click;

Private

Public

end;

Var

Form1: TForm1;

Implementation

Procedure TForm1.Button1Click;

begin

end;

end.

Для создания Unit и включения его в проект необходимо в меню файл вызвать команду New, при этом открывается окно, в котором содержатся различные объекты, в том числе и объект создания Unit и получаем заготовку Unit

Unit Unit2;

Interface

Implementation

end.

-//-

Unit Unit2

Interface

Type

TMyClass = Class

Field:integer; // поле класса

Procedure MetodField (i:integer);

end;

Constructor Create;

Implementation

Procedure TMyClass.MetodField;

Constructor TMyClass.Create;

Begin

Field:=0;

End;

Begin

Field:= i;

End;

End.

-//-

Implementation

Uses Unit2; // подключение нашего Unit

Var

MyObject:TMyClass

Procedure TForm1.Button1Click;

begin

MyObject:= TMyClass.Create;

//создание объекта, т.е. выделение в хипе адреса…

MyObject.MetodField(200)

Label1.Caption:= InttoStr(MyObjekt.Field);

end;

Дата добавления: 2014-01-07