Klassen mit unterschiedlichen Parents verwursten

[transporter08]

Hallo zusammen,

ich habe folgende Struktur bei einer Klassendefinition:

Basisklasse : TFooBase
davon abgeleitet: TFooClass1 = class(TFooBase), TFooClass2 = class(TFooBase)

jetzt möchte ich wiederum ein Set von gemeinsamen Eigenschaften und Funktionen
definieren, die in jede der abgeleiteten Klassen (TFooClass1/2) drinne sein soll.
In TFooBase haben sie in diesem Level (noch) nichts zu suchen, weil TFooBase
als Basis weiterer (anderwertiger) Ableitungen dienen soll.
Also so soll es in etwa aussehen:

???
Funktion1 virtual;
Funktion2 virtual;
???

TFooClass1
Funktion1 override;
Funktion2 override;

TFooClass2
Funktion2 override;

Ist das in der Form irgendwie machbar ?

Danke schonmal.

[DeddyH]

Hallo und Willkommen in der DP ,

ja, das geht. Wenn ich Dich richtig verstanden habe, dann suchst Du das Schlüsselwort abstract.

Delphi-Quellcode:

type
  TBaseClass = class
  protected
    function Func1; virtual; abstract; //wird hier noch nicht implementiert
    function Func2; virtual; abstract; //s.o.
  end;

  TChild1 = class(TBaseClass)
  protected
    function Func1; override; //Implementation erfolgt erst hier
    function Func2; override;
  end;

[transporter08]

Nein, das ist leider nicht das was ich suche.

ich versuch's nochmal etwas zu verdeutlichen:

Eigentlich müssten (nur zum Verständnis)

Funktion1 virtual;
Funktion2 virtual;

in TFooBase aufgenommen werden, damit sich TFooClass1 und TFooClass2 beide auf den gleichen
Funktionsrumpf beziehen können.

Aber da TFooBase eine allgemeine Basisklasse darstellt, kann ich sie hier nicht aufnehmen,
sondern erst ab TFooClass1 bzw. TFooClass2. Kann ich ab diesem Level noch gemeinsame Dinge aufnehmen,
die von den abgeleiteten als Basis angesehen werden.

[DeddyH]

Nur dass ich das richtig verstehe: die Basisklasse hat thematisch nichts mit den beiden Funktionen zu tun, die kommen erst in der ersten Ableitung ins Spiel (also TFooClass1 bzw. TFooClass2), stimmt das soweit?

[transporter08]

Ja das ist korrekt.

[DeddyH]

In dem Fall würde ich einfach noch eine Klasse "dazwischenschieben", TFoo1 und TFoo2 erben dann von der und nicht mehr direkt von der Basisklasse.

[himitsu]

Zitat:

Klassen mit unterschiedlichen Parents verwursten

Das hatte ich erst falsch verstanden.
Stichwort: Mehrfachvererbung
Und sowas ginge nicht.

[edit]
Oder hab ich's richtig verstanden. :grubel:

[transporter08]

Die Zwischenklasse ist leider auch nicht möglich, weil TFooClass1 und TFooClass2 wiederum Basisklassen bilden, von denen an anderer Stelle Ableitungen stattfinden (nennen wir sie TFooClass1ZweigA und TFooClass2ZweigA (diese Ableitungen haben aber ihrerseits nichts mit Funktion1/Funktion2 zu tun). Die Funktion1/Funktion2 soll nur (gemeinsam nutzbar) in TFooClass1ZweigB bzw. TFooClass2ZweigB wenn möglich.