Пример 3. Калькулятор

Постановка задачи: Создать приложение, выполняющие сложение (S), вычитание (R), умножение (P) значений переменных X и Y, вводимых пользователем.

Вид Form1 с компонентами:

Вид Form2 с компонентами:

После создания вышеприведенных форм, необходимо выполнить следующие действия:

1. В модуле Unit1 раздела Interface в описании переменных (раздел var …) добавить cтроку: X, Y, S, R, P: real;

2. Написать тексты процедур обработки щелчков на кнопках для форм.

Form1 (Unit1)

Var Form1: TForm1; x,y,S,R,P:real;

Implementation

uses Unit2; {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

//Сумма X+Y

begin S:=x+y; end;

procedure TForm1.Button2Click(Sender: TObject);

//Ввод X,Y

begin x:=StrToFloat(Edit1.text);

y:=StrToFloat(Edit2.text) end;

procedure TForm1.Button3Click(Sender: TObject);

//ВызовForm2

begin Button3.Enabled:=True;

Form2.Show; Button5.SetFocus end;

procedure TForm1.Button4Click(Sender: TObject);

//Разность X-Y

begin R:=x-y end;

procedure TForm1.Button5Click(Sender: TObject);//Вывод R,S

begin Form2.Edit1.Text:=FloatToStr(R);

Form2.Edit2.Text:=FloatToStr(S); end;

End.

Form2 (Unit2)