Проектирование калькулятора в среде Delphi. Семенов Н.М. - 9 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

9
- FloatToStr преобразует число с плавающей запятой в символьное
представление; например, FloatToStr (2.10) возвращает строку ‘2.10000000000’.
Функция StrToInt позволяет содержимое окна редактирования операнда,
доступное как свойство Text соответствующего компонента Edit, преобразовать в целое
число, необходимое для вычислений. Например, чтобы получить числовое значение
первого операнда, вызывают StrToInt следующим образом:
StrToInt(EditOperand1.Text)
Теперь заполним обработчик события BtnAddClick текстом программы.
Вставьте следующий код между begin и end обработчика события
BtnAddClick:
Op1:=StrToInt(EditOperand1.Text);
Op2:=StrToInt(EditOperand2.Text);
Result:=Op1+Op2;
ResultStr:=IntToStr(Result);
EditResult.Text:=ResultStr;
В этом коде введено несколько вспомогательных переменных. Подходящее
место для объявления временных переменных - непосредственно подпрограмма, чтобы
они были доступны только внутри неё.
Дополните программу, чтобы она выглядела так:
1: procedure TForm1.BtnAddClick(Sender: TObject);
2: var
3: Op1,
4: Op2,
5: Result:Integer;
6: ResultStr:String;
7: begin
8: Op1:=StrToInt(EditOperand1.Text);
9: Op2:=StrToInt(EditOperand2.Text);
10: Result:=Op1+Op2;
11: ResultStr:=IntToStr(Result);
12: EditResult.Text:=ResultStr;
13: end;
Строки со 2-ой по 6-ю подпрограммы BtnAddClick формы TForm1 объявляют
временные переменные для преобразований между числовыми и строковыми
представлениями.
8-я строка преобразует строковое значение первого операнда в числовое и
сохраняет результат в целой переменной Op1.
Аналогично 9-я строка преобразует строковое значение второго операнда и
сохраняет результат в целой переменной Op2.
В 10 - й строке выполняется фактическое вычисление суммы.

Страницы