Ableiten von Interfaces

[Kedariodakon]

Zitat von paresy:

Was übrigens noch schön wäre, aber anscheinend nicht geht, ist das mehrfache Ableiten von Interfaces:

Delphi-Quellcode:

type
  IFoo = interface
     procedure Hello;
     procedure Walk;
  end;

  IBar = interface
     procedure Hello;
     procedure Talk;
  end;

  ICombo = interface(IFoo, IBar)
     procedure ChewBubbleGum;
  end;

paresy

Im gewissen Sinne wieder unsinnig, da man dann nicht mehr über IFoo und IBar zugreifen könnte... (Hast du ja schon mitbekommen)

Aber so könntest du auch sowas realisieren:

Delphi-Quellcode:

Type
  IFoo = Interface
    ['{65E88BD5-D440-4C1C-AE03-6EBC59A18772}']
    Procedure Hello;
    Procedure Walk;
  End;

  IBar = Interface
    ['{F77C17B1-2DE4-459F-B06E-F6BF3BBD2EB7}']
    Procedure Hello;
    Procedure Talk;
  End;
  
  ICombo = interface
    ['{CB36309F-5C44-49EE-91DB-408D50E311BD}']
    Procedure ChewBubbleGum;
  End;

  TObj = Class( TInterfacedObject, IFoo, IBar, ICombo )
  Private                    
    { Private-Deklaration }  
  Protected
    { Protected-Deklaration }
    Procedure IFoo.Hello = fHello;
    Procedure Walk;    
    Procedure IBar.Hello = bHello;
    Procedure Talk;
    Procedure ChewBubbleGum;
    Procedure fHello;
    Procedure bHello;
  Public                     
    { Public-Deklaration }
  End;

Sprich, je nach Interface-Zugriff eine entsprechende Methode...

Bye Christian