| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Здарово!!! не подскажите как в Турбо Паскале использовать метод р [D5, Win95/98]

ZG ©   (2002-06-19 16:10:00) 

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

---

Dimka Maslov   (2002-06-19 17:14:00) [1]

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.

---

Vitaly   (2002-06-19 17:08:00) [2]

inherited

---

Наверх