Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#10

AW: Inherited "überspringen"?

  Alt 16. Mär 2017, 16:02
Oberklasse(Self).proc;
Das geht in jedem Fall schief, da du damit auch nur die virtuelle Methode, also wieder Unterklasse2.Proc, aufrufst und so in einen Stack-Overflow läufst.

Die einzige Möglichkeit, die mir dazu einfällt ist schon arg bösartig:

Delphi-Quellcode:
procedure Unterklasse2.Proc;
begin
  asm
    mov eax,self
    call Oberklasse.Proc
  end;
// inherited;
  Writeln('Unterklasse2');
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat