Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

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

 
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? Его, по-моему, мы не вызываем.



Страницы: 1 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-13366
Dabadabiabo
2003-05-16 11:40
2003.06.05
Высота строки в DBGrid е


1-13242
Marina_S
2003-05-21 11:54
2003.06.05
Почему не работает присвоение TLabel.Caption?


1-13189
georg4
2003-05-25 01:05
2003.06.05
Treeview или Listview в реестре


14-13464
Еще пока ламак
2003-05-20 14:45
2003.06.05
Delphi и математические методы


1-13134
Multy
2003-05-26 05:15
2003.06.05
Управление мышью