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

Вниз

Здарово!!! не подскажите как в Турбо Паскале использовать метод р   Найти похожие ветки 

 
ZG   (2002-06-19 16:10) [0]

Здарово!!! не подскажите как в Турбо Паскале использовать метод родителя. Задача вот в чем. Есть главный объект в котором есть метод заполнения основных данных, и второй объект в котором заносятся доп.данные. И я делаю насследования, но как использовать метод родителя с методом потомка не знаю


 
Vitaly ©   (2002-06-19 17:08) [1]

inherited


 
Dimka Maslov ©   (2002-06-19 17:14) [2]

type
TParentObject = object
procedure VirtualProc; virtual;
function VirtualFunc: Integer; virtual;
end;

TChildObject = object (TParentObject)
procedure VirtualProc; virtual;
function VirtualFunc: Integer; virtual;
end;

procedure TParentObject.VirtualProc;
begin
Writeln("ParentObject VirtualFunc = ", VirtualFunc);
end;

function TParentObject.VurtualFunc: Integer;
begin
VirtualFunc:=100;
end;

procedure TChildObject.VirtualProc;
begin
Writeln("ChildObject VirtualFunc = ", VirtualFunc);
TParentObject.VirtualProc;
end;

function TChildObject.VirtualFunc: Integer;
begin
VirtualFunc := 2 * TParentObject.VirtualFunc;
end;

var
Parent: TParentObject;
Child: TParentObject;

begin
Parent.VirtualProc;
Child.VirtualProc;
end.



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
8-1107
Unplugged_in_NY
2002-02-22 08:02
2002.07.01
прозрачный битмап


8-1111
Зинец Виктор
2002-02-19 12:22
2002.07.01
Как сделать доску для рисования, разделяемую 2-я пользователями в сети?


1-1031
Poirot
2002-06-18 12:36
2002.07.01
Как имя компонента вывести....


7-1238
Aleksandr
2002-04-04 10:40
2002.07.01
Как получить список шрифтов только фиксированной ширины?


1-948
Topten
2002-06-19 17:49
2002.07.01
TWebBrouser