Описание классов Delphi

[vladis222]

Здравствуйте,прошу вашей помощи в описании классов на делфи. У меня в программе должно работать наследование(класс окружность унаследован от класса Точка. Я описал это в программе, но наверное ошибся в описаниях классов.Посмотрите,пожалуйста,на ошибки.

Вот описание классов:

unit Unit1;

interface
 type TPoint=class
protected
   CX,CY:double;
   procedure SetValueCX(icx:double);
   procedure SetValueCY(icy:double);
public
   constructor Create(icx,icy:double);
   destructor  Destroy();
   property ValueX:double read CX write SetValueCX;
   property ValueY:double read CY write SetValueCY;
   end;
implementation
 constructor TPoint.Create(icx,icy:double);
begin
icx:=0;
icy:=0;
end;
destructor TPoint.Destroy();
begin
end;
procedure TPoint.SetValueCX(icx:double);
begin
 CX:=icx;
end;
procedure TPoint.SetValueCY(icy:double);
begin
 CY:=icy;
end;
end.

unit Unit2;

interface
 uses
  Unit1,Math;
type TCircle=class(TPoint)
  private
    Radius:double;
    procedure SetValueR(iRadius:double);
  public
    constructor Create(icx,icy,IRadius:double);
    destructor  Destroy;
    property ValueR:double read Radius write SetValueR;
    function square(Radius:double):double;
end;
implementation
constructor TCircle.Create(icx,icy,iRadius:double);
begin
inherited create(0,0);
IRadius:=0;
end;
destructor TCircle.Destroy();
begin
inherited destroy;
end;
procedure TCircle.SetValueR(iRadius:double);
begin
 Radius:=iRadius;
end;
function TCircle.square(Radius:double):double;
begin
Result:=PI*power(Radius,2);
end;
end.

[Delphi_ProGer]

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

Здравствуйте,прошу вашей помощи в описании классов на делфи. У меня в программе должно работать наследование(класс окружность унаследован от класса Точка. Я описал это в программе, но наверное ошибся в описаниях классов.Посмотрите,пожалуйста,на ошибки.

Вот описание классов:

unit Unit1;

interface
 type TPoint=class
protected
   CX,CY:double;
   procedure SetValueCX(icx:double);
   procedure SetValueCY(icy:double);
public
   constructor Create(icx,icy:double);
   destructor  Destroy();
   property ValueX:double read CX write SetValueCX;
   property ValueY:double read CY write SetValueCY;
constructor Create(icx,icy:double);
destructor Destroy();
   end;
implementation
 constructor TPoint.Create(icx,icy:double);
begin
icx:=0;
icy:=0;
end;
destructor TPoint.Destroy();
begin
end;
procedure TPoint.SetValueCX(icx:double);
begin
 CX:=icx;
end;
procedure TPoint.SetValueCY(icy:double);
begin
 CY:=icy;
end;
end.

unit Unit2;

interface
 uses
  Unit1,Math;
type TCircle=class(TPoint)
  private
    Radius:double;
    procedure SetValueR(iRadius:double);
  public
    constructor Create(icx,icy,IRadius:double);
    destructor  Destroy;
    property ValueR:double read Radius write SetValueR;
    function square(Radius:double):double;
constructor Create(icx,icy,iRadius:double);
destructor Destroy();
end;
implementation
constructor TCircle.Create(icx,icy,iRadius:double);
begin
inherited create(0,0);
IRadius:=0;
end;
destructor TCircle.Destroy();
begin
inherited destroy;
end;
procedure TCircle.SetValueR(iRadius:double);
begin
 Radius:=iRadius;
end;
function TCircle.square(Radius:double):double;
begin
Result:=PI*power(Radius,2);
end;
end.

Вы не обявили конструкторы и деструкторы в классе. Я сдлелал это, но может еще есть ошибки...

[volvo877]

Вообще-то конструктуры/деструкторы уже были объявлены в первом посте. Кстати, надо внимательно смотреть на сообщения компилятора, он предупреждает, что деструктор класса скрывает деструктор предка, потому что забыт Override.

vladis222, в чем ошибка заключается? Что-то не так работает? Можно пример кода, как используются эти классы?

[Delphi_ProGer]

volvo877, блин, не внимательно прочитал.