Interface. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type

TForm1 = class (TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button2: TButton;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

ves, rost, raznost: integer;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Begin

rost:= StrToInt(edit1.Text);

ves:= StrToInt(edit2.Text);

raznost:= rost-ves;

Label4.Caption:= 'нормальным!';

if (raznost<100-3) then Label4.Caption:= 'избыточным!'

else

if (raznost>100+3) then Label4.Caption:= 'недостаточным!';

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Close;

end;

end.

Для ввода программного кода необходимо после создания формы с компонентами, выбрав из последних кнопку Button1, в окне Инспектора объектов во вкладке Events (События) на строке OnClick сделать двойной щелчок в поле справа. После этого откроется окно редактора кода, в котором для выбранного компонента будет добавлен шаблон процедуры обработки события; при этом в поле события будет указана функция его обработки.

Аналогично создается программный код для кнопки Button2 ^[6]. После написания программы необходимо ее откомпилировать, выявив, тем самым, синтаксические ошибки, сохранить программный модуль и сам проект в долговременной памяти компьютера (например, н жестком диске). При этом требуется создать папку проекта и ввести оригинальные имена для программного модуля и проекта в целом (лучше использовать близкие примерно совпадающие названия: например, для первого избрав название Vash_ves_1, а для последнего – Vash_ves _).

В дальнейшем после сохранения проекта в виде откомпилированного «. exe -шного» файла можно запускать программу вне среды Delphi из папки проекта или создав ярлык файла в удобном месте.

Содержание работы

Запустить программную среду Delphi 7. Ознакомиться с компонентами окна приложения (Главное окно, меню, палитра компонентов VCL, Инспектор объектов, Дерево объектов, окно Формы, окно Редактора кода). Воспроизвести пример, приведенный выше («определение веса»). По указанию преподавателя выбрать вариант из Приложения З. По завершении работы результаты сохранить в файл.