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

← →
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

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