Interfaces - Multiple Inheritance

[ThE_-_BliZZarD]

Hallo liebe Delphi-Gemeinde,

ich habe jetzt schon etliche Artikel und Forendiskussionen dazu abgesucht, aber leider keinen Hinweis gefunden. Ich versuche, ein Interface von 2 weiteren Interfaces erben zu lassen, etwa wie folgt:

Delphi-Quellcode:

IReadObject = Interface(IInterface)
   ['{26828CFB-864E-488E-914D-B4BEBD49F641}']
   function getMass: Double;
End;

IWriteObject = Interface(IInterface)
   ['{B9F10F92-1145-4108-8C93-386ABA334A88}']
   procedure setMass(AValue: Double);
End;

// Das funktioniert so leider nicht
// Fehler: [DCC Fehler] E2029 ')' erwartet, aber ',' gefunden (In der Zeile "IFullObject..", Cursor steht vor ", IWriteObject)"
IFullObject = Interface(IReadObject, IWriteObject)
   ['{19FCFAF2-1BF0-45BE-AABF-0C5138F7D7ED}']
   property Mass: Double read getMass write setMass;
end;

Wie bereits im Codeblock geschrieben tritt ein Fehler auf.

Funktioniert das mehrfache Erben bei Interfaces (so wie bei Klassen) nicht? Oder mache ich etwas falsch?

Mit freundlichen Grüßen,

BliZZarD

[Uwe Raabe]

Interfaces können genau wie Klassen immer nur einen Vorfahren haben. Klassen können aber mehrere Interfaces implementieren.

[Uwe Raabe]

Um es mal auf dein Beispiel zu beziehen:

Delphi-Quellcode:

IReadObject = Interface(IInterface)
   ['{26828CFB-864E-488E-914D-B4BEBD49F641}']
   function getMass: Double;
   property Mass: Double read getMass;
End;

IWriteObject = Interface(IInterface)
   ['{B9F10F92-1145-4108-8C93-386ABA334A88}']
   procedure setMass(AValue: Double);
   property Mass: Double write setMass;
End;

TFullObject = class(TInterfacedObject, IReadObject, IWriteObject)
private
  function getMass: Double;
  procedure setMass(AValue: Double);
end;

Du kannst jetzt auch noch dies machen:

Delphi-Quellcode:

IFullObject = Interface(IReadObject)
   ['{19FCFAF2-1BF0-45BE-AABF-0C5138F7D7ED}']
   procedure setMass(AValue: Double);
   property Mass: Double read getMass write setMass;
end; 

TFullObject = class(TInterfacedObject, IReadObject, IWriteObject, IFullObject)

Die implementierende Klasse muss dann das Interface nur noch aufführen.

In diesem Fall wäre IWriteObject dann aber eigentlich überflüssig.

[himitsu]

Nein, IReadObject ist "überlüssig"/unnötig, da es schon in IFullObject enthalten ist (der Vorfahre).
Die Funktion von IWriteObject ist zwar auch in IFullObject enthalten, aber das Interface selber natürlich nicht.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1039997)

Nein, IReadObject ist "überlüssig"/unnötig, da es schon in IFullObject enthalten ist (der Vorfahre).
Die Funktion von IWriteObject ist zwar auch in IFullObject enthalten, aber das Interface selber natürlich nicht.

Das sehe ich etwas anders! Lass das mal laufen:

Delphi-Quellcode:

type
  IFather = interface
    ['{41780D81-7DD0-491B-831D-E3C247FB425F}']
  end;

  IChild = interface (IFather)
    ['{BAB88147-561D-4786-BC59-FDA90AFF3669}']
  end;

  TClass1 = class(TInterfacedObject, IFather, IChild)
  end;

  TClass2 = class(TInterfacedObject, IChild)
  end;

procedure Test;
var
  intf1: IInterface;
  intf2: IInterface;
begin
  intf1 := TClass1.Create;
  intf2 := TClass2.Create;
  if Supports(intf1, IFather) then
    ShowMessage('TClass1 supports IFather')
  else
    ShowMessage('TClass1 doesn''t support IFather');
  if Supports(intf2, IFather) then
    ShowMessage('TClass2 supports IFather')
  else
    ShowMessage('TClass2 doesn''t support IFather');
end;

[Blup]

Zitat:

Zitat von Uwe Raabe (Beitrag 1039986)

Interfaces können genau wie Klassen immer nur einen Vorfahren haben.

Darüber bin ich auch schon gestolpert. Bei Klassen ist Mehrfachvererbung kompliziert. Aber ich kenne keinen zwingenden Grund, warum Mehrfachvererbung für Interfaces nicht vorgesehen wurde.

[Stevie]

Uwe hat recht. Interfaces, die nicht explizit bei einer Klasse angegeben sind bekommen keinen VMT Slot und sind demnach auch nicht über Supports verfügbar. Auch wenn sie eigentlich über eine Interface Vererbung drin sein müssten.

[himitsu]

Zitat:

In diesem Fall wäre IWriteObject dann aber eigentlich überflüssig.

Wenn ich das jetzt nochmal durchlese:
Meinst du das Interface oder die Angabe dessen im Objekt?


Aber gut zu wissen ... dachte daß auch die Interfaces supportet werden, welche als Parent indirekt mit eingebunden sind. :shock:

[Der schöne Günther]

Ich hoffe das ist ok, dass ich das alte Thema wieder ausbuddele.

Aber genau die gleiche Frage stelle ich mir mittlerweile auch. Nochmal:

• Interface
  Delphi-Quellcode:

  IParent

• Interface
  Delphi-Quellcode:

  IChild

  erbt von
  Delphi-Quellcode:

  IParent

• Klasse
  Delphi-Quellcode:

  TChild

  realisiert ausschließlich
  Delphi-Quellcode:

  IChild

Wie kann ich überhaupt erfahren, dass

Delphi-Quellcode:

TChild

auch

Delphi-Quellcode:

IParent

supported? Müsste ich in meiner Klasse das

Delphi-Quellcode:

QueryInterface

selbst überschreiben? Oder sollte man sich Interface-Vererbung generell abgewöhnen?

[Uwe Raabe]

Zitat:

Zitat von Der schöne Günther (Beitrag 1236632)

Wie kann ich überhaupt erfahren, dass

Delphi-Quellcode:

TChild

auch

Delphi-Quellcode:

IParent

supported? Müsste ich in meiner Klasse das

Delphi-Quellcode:

QueryInterface

selbst überschreiben? Oder sollte man sich Interface-Vererbung generell abgewöhnen?

Wenn du willst, daß TChild sowohl IChild als auch IParent supported, dann musst du beide Interfaces angeben. Andernfalls kannst du nur an das IChild Interface heran. Da du aber weißt (aus der Deklaration), daß IChild von IParent abgeleitet ist, kannst du natürlich auch die IParent-Methoden verwenden. Es kommt also wie immer darauf an, was man erreichen will: man muss halt wissen, was man tut.

Übrigens: Interface-Vererbung hast du immer dabei - jedes Interface ist von IInterface abgeleitet.