Delphi 7, создание функционального калькулятора с использованием класса

[Пепел Феникса]

если бываешь на лекциях/уроках, то нет.
+можно почитать книги самостоятельно.

procedure TForm1.ButtonRezClick(Sender: TObject);
begin
Rv:='=';
z:=StrToFloat(Edit1.Text);
Case D Of
 '+':f:=x+y;
 '-':f:=x-y;
 '*':f=x*y;
 '/':f:=a/z;
 '\':f:=1/a;
 'S': f:=Sin(a);
 'C':f:=Cos(a);
 '|':f:=abs(a);
 'A': Function InDegree(a);
'L': Function Log(a);
end;

выделенные строки тоже неверны.
кстати и где создание вашего обьекта типа TCalculator?

Скандербег, лишним не будет
а так лучше сразу привыкать, а то при наследовании можно потом позабывать.

[ulala]

А как этот код создаётся?
И где функцию использовать?

так не было лекции-то только задание дали...

Calculator:=TCalculator.Create; - это надо добавить в procedure TForm1.ButtonRezClick(Sender: TObject); (кнопка "=") или в кнопки с операциями логарифм и модуль?

Var D:Integer;
procedure TForm1.ButtonModClick(Sender: TObject);
begin
Calculator:=TCalculator.Create;
D:=(Sender As TButton).Tag;
x:=StrToFloat(Edit1.Text);
Edit1.Text:='';
end;

Вот сюда это надо было добавить, я поняла

Теперь нужно с подсвеченными неправильно использованными ф-иями разобраться... Их в кнопке "=" совсем не надо писать? А как же она тогда будет вычислять...

[Скандербег]

Сообщение от ulala

Вот сюда это надо было добавить, я поняла

Если добавить СЮДА, то на каждое нажатие кнопки ButtonMod будет создавать новый экземпляр класса. Взаимодействовать друг с другом они не будут - получится сплошной бардак.
Экземпляр создается, как правило, при запуске программы и создании главной формы в событии FormCreate;

[ulala]

При нажатии кнопки "С" они будут взаимодействовать?

Простите, пора бежать на учёбу Спасибо всем за подсказки

[Скандербег]

Дело не в том, будут они взаимодействовать или нет, а в том, что вам нужен лишь один экземпляр калькулятора, который будет обеспечивать все операции. Поэтому и нужно его создавать один раз при запуске программы.

Запустите штатный калькулятор Windows и посмотрите как в нем производятся операции (вначале двухпозиционные - сложить, вычесть, ...).
Вначале набирается первое число, которое после нажатия на кнопки +, - *, / запоминается (у вас в переменной X). Так же запоминается и вид операции. Затем набирается второе число, которое после нажатия на кнопку = запоминается в Y. И после этого в этом же событии кнопки ButtonRez, происходит выполнение нужной операции.

Если двухпозиционные операции будут освоены, то и операции, требующие один аргумент проще будет осознать.

[Valenok_Sibirski\y]

Мне тоже задали написать калькулятор в шараге с логарифмами. до них я еще не дошла. появилась проблема с прописыванием кнопки возведения в степень и взаимдействия с кнопкой "=". вот код:

var  k, y1:integer;
procedure TForm1.BitBtn18Click(Sender: TObject);
begin
  x:= strtofloat(edit1.text);
  edit1.Clear;
  kod := '^';
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
 y:=strtofloat(edit1.text);
 case kod of
   '+': z:=x+y;
   '-': z:=x-y;
   '*': z:=x*y;
   '\': z:=x/y;
   '^': begin
          y1:=strtoint( edit1.Text);
          edit1.clear;
          z :=1;
          for k:=1 to y1 do begin
             z:=z*x;
          end;
        end;
    edit1.Text:=floattostr(z)
  end;

после прописывания этого кода перестают работать кнопки "+", "-", "*" и "\" при нажатии на "=" в этих случаях ничего не происходит работают только возведение в степень и корень квадратный из числа.
Можете подсказать как сделать так чтобы работали все кнопки



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

uses Math...
...
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
 y:=strtofloat(edit1.text);
 case kod of
   '+': z:=x+y;
   '-': z:=x-y;
   '*': z:=x*y;
   '\': z:=x/y;
   '^': z:=power(x,y);
   '=': begin edit1.Text:=floattostr(z); kod:=#0;x:=0;y:=0; end;
 end;

  end;

так?