Vererbungs-Ebene überspringen bei inherited?

[Stevie]

Hi Leute,

angenommen, ich habe folgende Klassen:

Delphi-Quellcode:

type
TFoo = class
  procedure DoSomething; virtual;
end;

TFoo2 = class(TFoo)
  procedure DoSomething; override;
end;

TFoo3 = class(TFoo2)
  procedure DoSomething; override;
end;

Kann ich in TFoo3.DoSomething einen inherited-Aufruf der TFoo.DoSomething machen? Wenn ja, wie?

MfG
Stevie

[Dax]

Das geht, aber mit inherited glaube ich nicht (es sei denn, inherited inherited ist erlaubt). Versuchs doch mit (Self as TFoo).DoSomething, das müsste gehen.

[Stevie]

Wenn man denkt: Diese Frage gab's bestimmt noch nicht, dann ist man garantiert auf dem Holzweg...
Hier gibt's die Auflösung...