Главная страница
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.044 c
1-13254
AlexT1000
2003-05-23 14:15
2003.06.05
как HTM файл с картинками отправить по почте?


3-13095
Caesar
2003-05-19 10:43
2003.06.05
Несоответствие типов данных


1-13158
JK2002
2003-05-26 09:48
2003.06.05
Подскажите как в PageControl сделать закладки справа. Очень надо.


7-13485
Money
2003-04-03 22:37
2003.06.05
Помогите получить информацию с пульта ду.


1-13139
Alexander
2003-05-26 08:10
2003.06.05
Как в CheckListBox при разрешённых Grayed итемах программно