Главная страница
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.019 c
14-13378
babun
2003-05-15 21:04
2003.06.05
Фильтр для поля типа date


14-13396
kaif
2003-05-10 19:08
2003.06.05
---|Ветка была без названия|---


6-13356
Provodnick
2003-04-02 08:50
2003.06.05
Как поймать клик мыши по TWebBrowser?


6-13354
Versus31
2003-04-06 09:47
2003.06.05
Печать в TWebBrowser.


14-13461
vajo
2003-05-20 14:19
2003.06.05
Excel