Скачать: CL | DM;

Как вызвать процедуру наследника   Найти похожие ветки 

← →
pum5a ©   (2003-02-03 18:19) [0]

В общем есть такая штука

TBaseFrom = class(TForm)
...
public
procedure InitView;
...

TBaseForm1 = class(TBaseForm)
...
public
procedure InitView
...

procedure TBaseForm1.InitView;
begin
inherited;
....
end;

Мне нужно что-то вроде этого

procedure IV(f: TBaseForm);
begin
if f<>nil then
f.InitView;
end;

...

IV(BaseForm1);

Но вместо того, чтоб вызвать процедуру класса BaseForm1 вызывается процедура предка :(((
Подсткажите, плиз, где я ошибся. IV(f: TBaseForm1) не пойдет, т.к. вызов этой щтуки происходит для разных наследников.

---

← →
pum5a ©   (2003-02-03 19:05) [1]

Всё :)). Сам разобрался. Если кому-то интересно - делаем так:

TBaseFrom = class(TForm)
...
public
procedure InitView; dynamic;
...

TBaseForm1 = class(TBaseForm)
...
public
procedure InitView; override;
...

;))) Да здравствует Object Pascal

---

← →
a3m ©   (2003-02-03 19:06) [2]

вот тебе код:

A = class
...
procedure one; virtual;
...

B = class (A)
...
procedure one;override;
begin
inherited;
...
end;

вызываем так:
функция one виртуальная, в потомке (B) перекрывается (override).. Если объект some класса B (даже если он объявлен как some : A, но some := B.Create), то some.one - вызовет имеено one класса B.

по-моему это так. если, конечно, вопрос правильно понял...

---

← →
uw ©   (2003-02-03 22:09) [3]

Про dynamic пока забудь.

---

← →
pum5a ©   (2003-02-05 01:37) [4]

tnx


>uw: Про dynamic пока забудь.



Virtual versus dynamic
Virtual and dynamic methods are semantically equivalent. They differ only in the implementation of method-call dispatching at runtime. Virtual methods optimize for speed, while dynamic methods optimize for code size.
In general, virtual methods are the most efficient way to implement polymorphic behavior. Dynamic methods are useful when a base class declares many overridable methods which are inherited by many descendant classes in an application, but only occasionally overridden.

В моём случае скорее dynamic

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c