Как вызвать метод предка в методе предка?

Question

[Rainex]

Имеется абстрактный класс TBase, от него наследуется класс TList. А от TList наследуется ещё один класс Т2List. И вот сам вопрос как вызвать метод из метода класса TList, при условии что методы перекрыты во втором классе. inherited позволяет вызвать метод предка, но если в методе предка есть функции которые определены в текущем классе то выполняются они, а мне нужно что бы вызывались именно предка

Answer 1

[M_PRO]

На сколько я понял есть:

TMyObject = class(TObject)
  procedure DoA; virtual;
  procedure DoB; virtual;
end;

TMyObject2 = class(TMyObject)
  procedure DoA; override;
  procedure DoB; override;
end;

...

TMyObject.DoA;
begin
   DoB;
end;

TMyObject.DoB;
begin
  WrtieLn('MyObject');
end;

TMyObject2.DoA;
begin
   inherited DoA; // fix
end;

TMyObject2.DoB;
begin
  WriteLn('MyObject2');
end;

И вы ожидаете получить в результате вызова метода DoA класса TMyObject2, исправив строку с пометкой fix
строку MyObject в консоли строку MyObject вместо MyObject2.

Ответ: это не возможно.

Решение:
1. Если классы написаны Вами - думать над проектированием.
2. Если классы написаны не Вами - думать о том, как их использовать. Возможно "патчить" исходники если совсем припёрло. В таком случае нужна существенно более подробная информация.

Comments

[Арман Токсимбаев]

Ну почему невозможно?
Если методы не абстрактные / не виртуальные, а также все в поле видимости (в одном модуле или методы в паблике), то можно попробовать так
TBase(Self).MetodName;
или так
(Self as TBase).MetodName;

[M_PRO]

Арман Токсимбаев: Если методы не виртуальные, то у автора, мне кажется, такой проблемы бы не возникало.

Answer 2

[Вадим]

Попробуйте еще раз сформулировать вопрос. И перед этим, немного разобраться в терминологии.