Иерархия классов

← →
zolotov (2003-05-25 19:01) [0]

Ув. Мастера, мне нужно составить иерархию классов в консольном приложении. Я составил, только вот уже запарился и не пойму как сделать, чтобы можно было вызывать эти классы. Подскажите, пожалуйста,что нужно писать в оновном теле программы.

program MyCl;
type
Person = Class
public
procedure Show; virtual;
end;
Student = Class(person)
public
procedure Show; override;
end;
Tutor = Class(person)
public
procedure Show; override;
end;
zav = Class(tutor)
public
procedure Show;
end;
procedure Person.Show;
begin
writeln("Live");
end;
procedure Student.Show;
begin
writeln("Study");
end;
procedure Tutor.Show;
begin
writeln("Teach");
end;
procedure Zav.Show;
begin
inherited Show;
writeln("");
end;
begin

end.

Заранее спасибо.

← →
jack128 © (2003-05-25 19:13) [1]

Создовать объекты и использовать их :
var per1,per2,per3 : Tperson;
begin
per1 := TTutor.Create;
per2 := TStudent.Create;
per1.Show;
per2.Show;
per1.Free;
per2.Free;
end;

← →
zolotov (2003-05-25 19:20) [2]

Огромное спасибо.

← →
Anatoly Podgoretsky © (2003-05-25 19:39) [3]

А вот это стоит сделать базовым классом с абстрактными методами или введсти еще один дополнительный базовый клачч

Person = Class public procedure Show; virtual; abstract

← →
zolotov (2003-05-25 19:50) [4]

Спасибо. Только вот не пойму немного, а что с классом zav? Его, по-моему, мы не вызываем.

Иерархия классов Найти похожие ветки