Тема: Пишу калькулятор у Delphi
Вітаю!
Пишу калькулятор. В Delphi.
Ось скрін:
Кнопки 0..9, -(знак, а не дію) , "," прописав.
Тепер взявсь прописувати "+".
Ідея в мене така: є дві зміні - rez, act_chislo. Коли "+" натискається знов і знов то вони відповідно змінюються - в rez додається нове число і act_chislo присвоюється поточне значення Edit1.Text.
Але результат виводиться в Edit1.Text, при натисненні "=".
Питання як зробити, щоб змінну rez можна було використовувати в декількох процедурах-обробниках подій?
Ось шматки коду:
кнопка "+"-
procedure TForm1.Button15Click(Sender: TObject; var rez:real); // кнопка "+"
var
p: boolean;
act_chislo: real;
begin
if length(Edit1.Text)=0 then
begin
p:= false;
rez:= 0;
act_chislo:= 0;
end
else
p:= true;
if p=false then
ShowMessage('Нічого не введено!')
else
act_chislo:= StrToFloat(Edit1.Text);
rez:= rez+act_chislo;
Edit1.Text:= '';
end;
кнопка "="-
procedure TForm1.Button18Click(Sender: TObject; var rez: real); // кнопка "="
begin
Edit1.Text:= FloatToStr(rez);
end;
була версія така -
procedure TForm1.FormCreate(Sender: TObject; var rez: real );
var
rez: real;
begin
rez:= 0;
end;
Підскажіть, будь ласка.
Що зробити, про що почитати...