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