Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизИерархия классов Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c