Использование модуля

Для того чтобы
в программе могли применяться функции и процедуры модуля, программист должен
добавить этот модуль к проекту и указать имя модуля в списке используемых
модулей (обычно имя модуля программиста помещают в конец сформированного Delphi
списка используемых модулей).


В листинге 6.9
приведен вариант программы Поездка на дачу. Процедура обработки события
onKeyPress в полях ввода исходных данных обращается к функции IsFloat, которая
находится в модуле my_unit.pas, поэтому в списке используемых модулей указано
имя модуля my_unit.


Листинг
6.9. Использование функции из модуля программиста



unit fazenda_;


interface


uses


Windows, Messages, SysUtils, Variants,


Classes, Graphics, Controls, Forms,


Dialogs, StdCtrls, my_unit; // модуль программиста


type


TForm1 = class(TForm)


Edit1: TEdit; // расстояние


Edit2: TEdit; // цена литра бензина


Edit3: TEdit; // потребление бензина на 100 км


CheckBoxl: TCheckBox; // True — поездка туда и обратно


Button1: TButton; // кнопка Вычислить


Label4: TLabel; // поле вывода результата расчета


Label1: TLabel;


Label2: TLabel;


Label3: TLabel;


procedure EditlKeyPress(Sender: TObject;


var Key: Char);


procedure Edit2KeyPress(Sender: TObject;


var Key: Char);


procedure Edit3KeyPress(Sender: TObject;


var Key: Char);


procedure Button1Click(Sender: TObject);


private


{ Private declarations} public


{ Public declarations } end;


var


Form1: TForm1;


implementation


{$R *.dfm}


// нажатие клавиши в поле Расстояние


procedure TForml.EditlKeyPress(Sender: TObject;


var Key: Char);


begin


if Key = Char(VK_RETURN)


then Edit2.SetFocus // переместить курсор в поле Цена


else If not IsFloat(Key,Edit2.Text)


then Key := Chr(O);


end;


// нажатие клавиши в поле Цена


procedure TForm1.Edit2KeyPress(Sender: TObject; var Key:
Char);


begin


if Key = Char(VK_RETURN)


then Edit3.SetFocus // переместить курсор в поле Потребление .


else If not IsFloat(Key,Edit2.Text) then Key :=
Chr(0);


end;


// нажатие клавиши в поле Потребление


procedure TForm1.EditSKeyPress(Sender: TObject;


var Key: Char);


begin


if Key = Char(VK_RETURN)


then Button1.SetFocus // // сделать активной кнопку Вычислить


else If not IsFloat(Key,Edit2.Text) then Key :=
Chr(0);


end;


// щелчок на кнопке Вычислить


procedure TForml.ButtonlClick(Sender: TObject);


var


rast : real; // расстояние


cena : real; // цена


potr : real; // потребление на 100 км


summ : real; // сумма


mes: string;


begin


rast := StrToFloat(Editl.Text) ;


cena := StrToFloat(Edit2.Text);


potr := StrToFloat(Edit3.Text);


summ := rast / 100 * potr * cena;


if CheckBoxl.Checked then summ := summ * 2;


mes := 'Поездка на дачу';


if CheckBox1.Checked then


mes : = mes + ' и обратно' ;


mes := mes + 'обойдется в '


+ FloatToStrF(summ,ffGeneral, 4,2) + ' руб.';


Label4.Caption := mes;


end;


end.



После
добавления имени модуля в список модулей, используемых приложением, сам модуль
нужно добавить в проект. Для этого из меню Project надо выбрать команду
Add to Project и в открывшемся диалоговом окне — имя файла модуля. В
результате добавления модуля к проекту в окне редактора появится вкладка с
текстом добавленного к проекту модуля.


Увидеть
структуру проекта можно в окне Project Manager, которое появляется в
результате выбора соответствующей команды из меню View. В качестве
примера на рис. 6.3 приведена структура проекта Поездка на
дачу.



Рис. 6.3.
Структура проекта отражается в окне Project Manager


После
добавления модуля к проекту и включения его имени в список используемых модулей
(инструкция uses) можно выполнить компиляцию программы.

Понравилась статья? Поделиться с друзьями:
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: