Стр. 264 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
264
6. Перед разделом объявления глобальных переменных Var объявите
следующую процедуру.
//выполнение текущей операции
procedure DoOper;
7. В раздел Implementation поместите процедуру DoOper.
//выполнение текущей операции
procedure DoOper;
var
//число на индикаторе −окно вывода результата
numb:real;
begin
//считывание числа с индикатора
numb:=StrToFloat(Form1.Edit1.Text);
case oper of
0:accum:=numb;
1:accum:=accum+numb;
2:accum:=accum-numb;
3:accum:=accum*numb;
4:accum:=accum/numb;
end;
//вывод результата на индикатор
Form1.Edit1.Text:=FloatToStr(accum);
end;
8. В разделе описания типа TForm1 после объявления компонентов объя-
вите следующую процедуру.
procedure DigitBtnClick(Sender: TObject);
9. В разделе Implementation напишите процедуру DigitBtnClick.
//происходит при нажатии на цифровые клавиши
procedure TForm1.DigitBtnClick(Sender: TObject);
var
//нажатая кнопка
sbtn:TSpeedButton;
begin
//получение ссылки на нажатую кнопку
sbtn:=Sender as TSpeedButton;
case sbtn.Tag of
//нажата одна из кнопок 1 .. 9
1..9:
//первая цифра числа
if f=0 then
begin
//вывод цифры на индикатор
Edit1.Text:=IntToStr(sbtn.Tag);
//ожидание остальных цифр