AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Inherited "überspringen"?

Ein Thema von Rabenrecht · begonnen am 16. Mär 2017 · letzter Beitrag vom 17. Mär 2017
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.288 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Inherited "überspringen"?

  Alt 16. Mär 2017, 16:51
Ich würde das lieber so sauber wie eben möglich ohne Assembler lösen:
Delphi-Quellcode:
uses
  System.Rtti, System.TypInfo;

procedure Unterklasse2.Proc;
begin
  System.Rtti.Invoke(@Oberklasse.Proc, TArray<TValue>.Create(TValue.From<Unterklasse2>(Self)), ccReg, nil);
end;
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Ghostwalker

Registriert seit: 16. Jun 2003
Ort: Schönwald
1.299 Beiträge
 
Delphi 10.3 Rio
 
#12

AW: Inherited "überspringen"?

  Alt 16. Mär 2017, 19:11
Außer den Möglichkeiten von Uwe und Jaenike hab ich keine weiteren gefunden.

Da du aber Unterklasse2 eh nur wegen eines Fehlers in Unterklasse1 baust, warum
leitest du das ganze nicht direkt von Oberklasse ab ? Dann kann Unterklasse1 über die
Klinge springen.
Uwe
e=mc² or energy = milk * coffee²
  Mit Zitat antworten Zitat
Rabenrecht

Registriert seit: 9. Dez 2016
79 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#13

AW: Inherited "überspringen"?

  Alt 17. Mär 2017, 13:36

Funktioniert das denn bei dir?
Ne...

Mein spezifisches Problem war anders lösbar, weil die Oberklasse.Proc nen Einzeiler mit nem Zugriff auf eine Published Property war (check auf Ereignisbehandlung) und ich das deshalb schmerzfrei nachbauen konnte.

Die Diskussion interessiert mich dennoch. Ähnliche Fälle werden in Zukunft wahrscheinlich nochmal auftreten.


Da du aber Unterklasse2 eh nur wegen eines Fehlers in Unterklasse1 baust, warum
leitest du das ganze nicht direkt von Oberklasse ab ? Dann kann Unterklasse1 über die
Klinge springen.
Weil im Unterschied zu meinem aufs Notwendigste reduzierte Beispiel im konkreten Fall Unterklasse1 eine ganze Menge notwendiger Funktionalität enthält

Geändert von Rabenrecht (17. Mär 2017 um 13:39 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#14

AW: Inherited "überspringen"?

  Alt 17. Mär 2017, 14:28
Noch eine Dritte Variante ohne Assembly oder RTTI:
Delphi-Quellcode:
{ TA }

procedure TA.X(I: Integer);
begin
  ShowMessage('1: ' + I.ToString);
end;

{ TB }

procedure TB.X(I: Integer);
begin
  inherited;
  ShowMessage('2: ' + I.ToString);
end;

{ TC }

procedure TC.X(I: Integer);
type
  TProc = procedure(Sender: TA; I: Integer);
begin
  //inherited;
  TProc(@TA.X)(Self, I);
  ShowMessage('3: ' + I.ToString);
end;
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
MichaelT

Registriert seit: 14. Sep 2005
Ort: 4020 Linz
532 Beiträge
 
Delphi 10.3 Rio
 
#15

AW: Inherited "überspringen"?

  Alt 17. Mär 2017, 18:19
Nein. Solltest du meiden.

Es gibt in C++ diese Art des Aufrufs, mit dem wird aber im Falle von Multiple Inheritance zwischen den Base Classes unterschieden in erster Linie.

Gute Frage wäre ob du nicht einfach ein Objekt der entfernten Basisklasse erzeugst und das Ergebnis verwendest. Ob das Sinn macht sei dahingestellt.

Ich würde nicht ausschließen, ...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz