3.3.Запуск программы на выполнение

Программа начинает выполняться по команде меню Run (F9) или по нажатию кнопки Run на панели инструментов.

Если при запуске окажется, что некоторые модули проекта модифицировались со времени построения исполняемого файла, автоматически запускается компилятор и компоновщик построит исполняемый файл заново.

Рис. 3.2. Задание папки для откомпилированных модулей и исполняемого файла.

Ниже приведен полный текст главного модуля созданного простого калькулятора.

unit Unit_Calc;

interface

uses

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

Buttons, StdCtrls;

type

TForm1 = class(TForm)

LabelOp1: TLabel;

LabelOp2: TLabel;

LabelResult: TLabel;

EditOp1: TEdit;

EditOp2: TEdit;

EditResult: TEdit;

ButtonAdd: TButton;

ButtonSub: TButton;

ButtonMult: TButton;

ButtonDel: TButton;

ButtonClear: TButton;

BitBtnClose: TBitBtn;

procedure ButtonAddClick(Sender: TObject);

procedure ButtonSubClick(Sender: TObject);

procedure ButtonMultClick(Sender: TObject);

procedure ButtonDelClick(Sender: TObject);

procedure ButtonClearClick(Sender: TObject);

procedure EditOpChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Op1,Op2:integer;

Res:real;

implementation

{$R *.DFM}

procedure TForm1.ButtonAddClick(Sender: TObject);

begin

Op1:=StrToInt(EditOp1.Text);

Op2:=StrToInt(EditOp2.Text);

Res:=Op1+Op2;

EditResult.Text:=FloatToStr(Res);

LabelResult.Visible:=True;

LabelResult.Caption:='Результат +';

end;

procedure TForm1.ButtonSubClick(Sender: TObject);

begin

Op1:=StrToInt(EditOp1.Text);

Op2:=StrToInt(EditOp2.Text);

Res:=Op1-Op2;

EditResult.Text:=FloatToStr(Res);

LabelResult.Visible:=True;

LabelResult.Caption:='Результат -';

end;

procedure TForm1.ButtonMultClick(Sender: TObject);

begin

Op1:=StrToInt(EditOp1.Text);

Op2:=StrToInt(EditOp2.Text);

Res:=Op1*Op2;

EditResult.Text:=FloatToStr(Res);

LabelResult.Visible:=True;

LabelResult.Caption:='Результат *';

end;

procedure TForm1.ButtonDelClick(Sender: TObject);

begin

Op1:=StrToInt(EditOp1.Text);

Op2:=StrToInt(EditOp2.Text);

Res:=Op1/Op2;

EditResult.Text:=FloatToStr(Res);

LabelResult.Visible:=True;

LabelResult.Caption:='Результат /';

end;

procedure TForm1.ButtonClearClick(Sender: TObject);

begin

EditOp1.Clear;

EditOp2.Clear;

EditResult.Clear;

LabelResult.Visible:=False;

EditOp1.SetFocus;

end;

procedure TForm1.EditOpChange(Sender: TObject);

begin

EditResult.Clear;

LabelResult.Visible:=False;

end;

end.

4.Задание

1. Создать простой калькулятор.

2. Разместить на форме простого калькулятора две кнопки для выполнения операций деления нацело (div) и остатка от деления нацело (mod).

3. Создать процедуры обработки событий OnClick для вновь добавленных кнопок.

4. Запустить программу на выполнение.

5.Содержание отчета

Отчет должен содержать:

• Титульный лист.

• Задание.

• Описание используемых компонент (значение свойств, отличных от значений по умолчанию).

• Текст главного модуля созданного простого калькулятора.