Описание класса:
unit unit2;
interface
Type
TCircle = class
private
ciArea:real;
protected
ciradius:integer;
procedure setciArea;
public
property cirradius: integer read ciradius;
property cirarea : real read ciArea;
constructor create(radius:integer);
end;
TCylinder = class(TCircle)
private
cyArea:real;
protected
cyradius,cyheight:integer;
procedure setcyArea;
public
property cylradius: integer read cyradius;
property cylheight: integer read cyheight;
property cylarea : real read cyArea;
constructor create(radius, height:integer);
end;
implementation
constructor Tcircle.Create(radius:integer);
begin
ciradius:= radius;
setciArea;
end;
constructor TCylinder.create(radius,height:integer);
begin
cyradius:= radius;
cyheight:= height;
setcyArea;
end;
procedure TCircle.setciArea;
begin
ciArea:=cirradius*cirradius*3.14;
end;
procedure TCylinder.setcyArea;
begin
cyArea:=2*3.14*cylradius*(cylradius+cylheight);
end;
end.
Программный модуль:
procedure TCircles.Button1Click(Sender: TObject);
var
a,b:integer;
begin
if RadioGroup1.ItemIndex=-1 then
begin
ShowMessage('Выберите фигуру');
end;
if (Shape is TCircle) then
begin
a:=strtoint(edit1.Text);
shape:=Tcircle.create(a);
label3.Caption:='Площадь окружности = ' + floattostr(shape.cirarea);
end;
if (Shape is TCylinder) then
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
shape:=Tcylinder.create(a,b);
//label3.Caption:='Площадь цилиндра = ' + floattostr(shape.cylarea);
end;
end;
Проблема возникает на "закомментированной" строке:
[DCC Error] Unit1.pas(60): E2003 Undeclared identifier: 'cylarea'
Ошибка возникает из-за того, что мы работает с базовым классом и с его потомком, поэтому при вызове класса-потомка у нас возникает ошибка, или с чем-то другим это связано? И как эту ошибку избежать, если мне надо, чтобы иерархия классов сохранилась для данной программы, без абстрактных классов?