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

[ulala]

Здравствуйте. Мне нужно создать в Делфи калькулятор, вычисляющий не только простейшие математические операции, но и сложные: возведение в степень и логарифм. Эти две операции необходимо сделать используя класс. В этом классе аргументы а и х задавать через поля, а вычисление функций реализовать методами. Объяснять как это делать преподаватель не стал (это вам не школа, тут вы всё должны делать сами), учебников по Делфи в нашей шарашке нет. Я поискала в интернете и сделала следующее:

unit KalkUnFORUM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
Type
 TCalculator=Class
  private
   FValue1:Real;
   FValue2:Real;
  public
   Constructor Create(AX,AY:Real);
   Function InDegree:Real;    // возведение в степень
   Function Log:Real;         // логарифм соответственно
   //-----------------------------------------------
   // Поля:
   Property X:real read FValue1 write FValue1;  // как самый простой способ реализации свойств
   Property Y:Real read FValue2 write FValue2;
 End;

type
  TForm1 = class(TForm)
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button6: TButton;
    Button4: TButton;
    Button5: TButton;
    Button3: TButton;
    Button1: TButton;
    Button2: TButton;
    Button0: TButton;
    ButtonPlus: TButton;
    ButtonMinus: TButton;
    ButtonDel: TButton;
    ButtonUmn: TButton;
    ButtonRez: TButton;
    ButtonC: TButton;
    Edit1: TEdit;
    Button1naX: TButton;
    ButtonSin: TButton;
    ButtonCos: TButton;
    ButtonAvX: TButton;
    ButtonLog: TButton;
    ButtonMod: TButton;
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button0Click(Sender: TObject);
    procedure ButtonPlusClick(Sender: TObject);
    procedure ButtonMinusClick(Sender: TObject);
    procedure ButtonUmnClick(Sender: TObject);
    procedure ButtonDelClick(Sender: TObject);
    procedure ButtonCClick(Sender: TObject);
    procedure ButtonRezClick(Sender: TObject);
    procedure Button1naXClick(Sender: TObject);
    procedure ButtonSinClick(Sender: TObject);
    procedure ButtonCosClick(Sender: TObject);
    procedure ButtonLogClick(Sender: TObject);
    procedure ButtonAvXClick(Sender: TObject);
    procedure ButtonModClick(Sender: TObject);
    end;

var
  Form1: TForm1;
  a,f,z: real;
  D,Rv: char;
  Calculator: TCalculator;

implementation

Constructor TCalculator.Create;
Begin
 FValue1:=AX;
 FValue2:=AY;
End;
Function TCalulator.InDegree;
Begin
 Result:=exp(X*ln(Y));   // здесь ваши реализации функции
End;
Function TCalculator.Log;
Begin
 Result:=ln(X)/ln(Y); // здесь ваши реализации функции
End;
{$R *.dfm}
  procedure TForm1.Button0Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+(Sender As TButton).caption;
end;

procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
D:='+';
a:=StrToFloat(Edit1.Text);
Edit1.Text:='';
end;

procedure TForm1.ButtonMinusClick(Sender: TObject);
begin
D:='-';
a:=StrToFloat(Edit1.Text);
Edit1.Text:='';
end;

procedure TForm1.ButtonUmnClick(Sender: TObject);
begin
D:='*';
a:=StrToFloat(Edit1.Text);
Edit1.Text:='';
end;

procedure TForm1.ButtonDelClick(Sender: TObject);
begin
D:='/';
a:=StrToFloat(Edit1.Text);
Edit1.Text:='';
end;



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;

 procedure TForm1.ButtonCClick(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
Edit1.Clear;
end;

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

end.

Но ничего конечно же не работает и подсвечивает красным строку "Function TCalulator.InDegree;"... И я думаю это далеко не единственная строка которую оно мне подсветит...Что же делать?

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

какие ошибки выдает?
(или можете скинуть весь проект в архиве)

[Utkin]

А при этом Делфи должен еще и писать сообщение об ошибке. Может его тоже нам показать?

[ulala]

[Error] KalkUnFORUM.pas(85): Function needs result type
[Error] KalkUnFORUM.pas(87): Undeclared identifier: 'X'
[Error] KalkUnFORUM.pas(134): Undeclared identifier: 'x'
[Error] KalkUnFORUM.pas(136): ':=' expected but '=' found
[Error] KalkUnFORUM.pas(142): Statement expected but 'FUNCTION' found
[Error] KalkUnFORUM.pas(142): Missing parameter type
[Error] KalkUnFORUM.pas(143): Declaration expected but string constant found
[Error] KalkUnFORUM.pas(147): ';' expected but '.' found

и ещё сто штук подобных...

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

Constructor TCalculator.Create;
Begin
 inherited Create;//или хотите на AV нарватся? забыли как классы правильно оформлять(конструкторы)?
 FValue1:=AX;
 FValue2:=AY;
End;
Function TCalculator.InDegree:Real;
Begin
 Result:=exp(X*ln(Y));   // здесь ваши реализации функции
End;
Function TCalculator.Log:Real;
Begin
 Result:=ln(X)/ln(Y); // здесь ваши реализации функции
End;

и я бы советовал во внутренних функциях класса использовать всетаки поля, а не св-ва

[ulala]

первый раз в дельфи работаю

[ulala]

Кажется я тут ещё и функцию неверно использовала...

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

если подумать, то у вас тут много чего...потому Делфи матерится...

[ulala]

Мдя... первые лабораторные - они трудные самые...

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

Уважаемые, основная ошибка здесь не в том, чтобы в конструкторе калькулятора вызвать inherited (кстати, он здесь не нужен), а в том, что нет кода, в котором создается экземпляр класса TCalculator.
А по мелочи, да, есть описки. Если вместо TCalculator записывать TCalulator, то, понятно, будут ошибки при компиляции. в частности и Function needs result type.