Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

implementation

{$R *.dfm}

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

procedure TForm1.Edit1KeyPress(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.Edit3KeyPress(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 TForm1.Button1Click(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) можно выполнить компиляцию программы.