Interfaces - Multiple Inheritance

[himitsu]

Wozu willst du mehrere Interfaces vererben?

IRead und IWrite und dann wird eines von Beiden oder Beides bei den entsprechenden Klassen angegeben.

Sowas geht zwar auch

Delphi-Quellcode:

type
  IRead = interface
    function ReadInt: Integer;
  end;
  IWrite = interface
    procedure WriteInt(Value: Integer);
  end;
  IReadWrite = interface
    function ReadInt: Integer;
    procedure WriteInt(Value: Integer);
  end;

oder sowas

Delphi-Quellcode:

type
  IRead = interface
    function ReadInt: Integer;
  end;
  IWrite = interface
    procedure WriteInt(Value: Integer);
  end;
  IReadWrite = interface(IRead)
    procedure WriteInt(Value: Integer);
  end;

Aber da muß man dann bei den Funktionen, welche auf diese Interfaces prüfen, die Interfaces doppelt abfragen, da es je "Funktion" zwei Interfaces gibt.
Read = IRead oder IReadWrite
Write = IWrite oder IReadWrite