Листинг 1. Текст программного модуля MainUnit.pas

unit MainUnit;

Interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TMainForm = class(TForm)
Labell: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ButtonCalc: TButton;
Label2: TLabel;
Label3: TLabel;
LabelSum: TLabel;
LabelProduct: TLabel;
procedure ButtonCalcClick(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);
end;

Var

MainForm: TMainForm;

Implementation

{$R *.DFM}

procedure TMainForm.ButtonCalcClick(Sender: TObject);
var A, B: double;
begin // Нажата кнопка "Вычислить"
try
A:=StrToFloat(Edit1.Text); // Преобразовать текст в число
except
Editl.SetFocus;
ShowMessage ('Ошибка в первом числе');
exit;
end;
try B:=StrToFloat(Edit2.Text); // Преобраэовать текст в число
except
Edit2.SetFocus;
ShowMessage('Ошибка во втором числе');
exit;
end;
LabelSum.Caption:=FloatToStr(A+B);
LabelProduct.Caption:=FloatToStr(A*B);
end;

procedure TMainForm.ButtonExitClick(Sender: TObject);
begin // Выход из программы
Close;
end;

end.

Вопросы и задания для самостоятельной работы

1. Какие окна присутствуют по умолчании на экране в момент начала работы над новым проектом в Delphi и каковы их функции?

2. Что такое Properties и Events в окне инспектора объектов?

3. В чем разница между свойствами Caption и Name?

4. Что означают значок «+» перед названием свойства в окне инспектора объектов и кнопка с многоточием в строке свойства?

5. Какие файлы создает Delphi при работе с проектом? Каково их назначение? Где они сохраняются?

6. Какой алгоритмический язык используется для программирования в Delphi?

7. Каким образом в Delphi создается стандартная заготовка для обработчиков событий?

8. Какие функции используются для преобразования строковых значений в численные и наоборот.

9. Что такое исключения и как они используются?

10. Что будет, если в программе ввести в строку ввода не число?

11. Модифицируйте код программы для следующего случая: после ввода двух чисел программа определяет, какое из введенных чисел больше, и если больше первое число, то вычисляется разность введенных чисел, в противном случае вычисляется их сумма. Программа также должна отреагировать на ситуацию, когда числа равны друг другу. Добавьте на форму необходимые компоненты для отображения информации о введенных числах.