Hallo,
abgesehen von möglichen Designfehlern in der Klassenhierarchie - wäre es nicht am einfachsten, dem fleißigen Opa eine weitere,
nicht-virtuelle Methode zu spendieren?
Delphi-Quellcode:
type
TOpa = class
procedure TuWas; virtual;
procedure OpaTutWas;
end;
procedure TOpa.TuWas;
begin
OpaTutWas;
end;
procedure TOpa.OpaTutWas;
begin
// die eigentlichen Aktionen
end;
[...]
procedure TKind.TuWas;
begin
OpaTutWas;
end;
Die neue Methode kann in allen abgeleiteten Klassen direkt aufgerufen werden.
Gruß Hawkeye