Wie die Umsetzung Mehrfachvererbung in delphi?

Schnittstellen verwenden. So etwas wie dieses (Aus der Spitze von meinem Kopf, basierend auf Ihrer Beschreibung.....)

type

  IBikeWheel = interface
    ...
  end;

  IXYZ = interface
    ...
  end;

  IFrontWheel = interface(IBikeWheel)
    ...
  end;


  TBike = class
    ...
  end;

  TBikeWheel = class(TObject, IBikeWheel);

  TBikeWheelXYZ = class(TBikeWheel, IXYZ);

  TBikeFrontWheelXYZ = class(TBikeWheelXYZ, IFrontWheel);

Implementieren Sie Klassen für die Schnittstellen, die das tun, was die entsprechenden Klassen in den alten (vermutlich C/C++) - Bibliothek tut und instanziieren Sie in den entsprechenden Klassen-Konstruktor.

InformationsquelleAutor der Antwort Nick Hodges

Grundsätzlich - das KÖNNEN Sie NICHT. Delphi unterstützt keine mehrfache Vererbung.

Also Links, die mit diesem dilemma ist die Frage: könntest du eventuell umgestalten, dass die Bibliothek in einer Weise, die Sie bekommen können Weg mit der Verwendung von interface? Ist die mehrfache Vererbung meist über Funktionen und Methoden? Wenn ja - Schnittstellen verwenden. Delphi-Unterstützung für mehrere Schnittstellen in einer Klasse.

Wenn die multi-Vererbung mehr über Vererbung eigentliche Funktionalität in die Klassen, dann sind Sie wahrscheinlich auf der Suche bei einem größeren refactoring, fürchte ich. Sie müssen einen Weg finden, zu brechen, bis die funktionalen Abhängigkeiten in einer solchen Art und Weise können Sie machen es Erben von einer einzigen Basisklasse, vielleicht mit einigen zusätzlichen Schnittstellen geworfen.

Sorry, ich kann nicht eine einfache Antwort - das ist nur die Realität.

Marc

InformationsquelleAutor der Antwort marc_s

Einer variation von Brian Frost Vorschlag:

  TBikeWheel = class
  TBikeWheelXYZ = class( TBikeWheel ) 

  TBike = class
    FFrontWheel : TBikeWheel;
  protected
    function CreateWheel: TBikeWheel; virtual;
  public
    property FrontWheel : TBikeWheel
      read FrontWheel  
  end;

  TBikeABC = class( TBike)
  protected
    function CreateWheel: TBikeWheel; override;
  end;

  function TBikeABC.CreateWheel: TBikeWheel;
  begin
    result := TBikeWheel.Create;
  end;

  TBikeXYZ = class( TBike)
  protected
    function CreateWheel: TBikeWheel; override;
  end;

  function TBikeXYZ.CreateWheel: TBikeWheel;
  begin
    result := TBikeWheelXYZ.Create;
  end;

InformationsquelleAutor der Antwort Uwe Raabe

können Sie versuchen auf diese Weise, wenn Sie nicht möchten, wiederholen Sie den code mehrmals und wollen eine entkoppelte code.

type
   TForm1 = class(TForm)
    btnTest: TButton;
    procedure btnTestClick(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

   TBike = class
   end;

   IBikeWheel = interface
      procedure DoBikeWheel;
   end;

   TBikeWheel = class(TInterfacedObject, IBikeWheel)
   public
      procedure DoBikeWheel;
   end;

   IBikeWheelFront = interface
      procedure DoBikeWheelFront;
   end;

   TBikeWheelFront = class(TInterfacedObject, IBikeWheelFront)
   public
      procedure DoBikeWheelFront;
   end;

   IBikeWheelBack = interface
   end;

   TBikeWheelBack = class(TInterfacedObject, IBikeWheelBack)
   end;

   TBikeWheelFrontXYZ = class(TInterfacedObject, IBikeWheel, IBikeWheelFront)
   private
      FIBikeWheel: IBikeWheel;
      FBikeWheelFront: IBikeWheelFront;
   public
      constructor Create();
      property BikeWheel: IBikeWheel read FIBikeWheel implements IBikeWheel;
      property BikeWheelFront: IBikeWheelFront read FBikeWheelFront implements IBikeWheelFront;
   end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

{ TBikeWheel }

procedure TBikeWheel.DoBikeWheel;
begin
   ShowMessage('TBikeWheel.DoBikeWheel');
end;

{ TBikeWheelFrontXYZ }

constructor TBikeWheelFrontXYZ.Create;
begin
   inherited Create;
   Self.FIBikeWheel := TBikeWheel.Create;
   Self.FBikeWheelFront := TBikeWheelFront.Create;
end;

{ TBikeWheelFront }

procedure TBikeWheelFront.DoBikeWheelFront;
begin
   ShowMessage('TBikeWheelFront.DoBikeWheelFront');
end;

procedure TForm1.btnTestClick(Sender: TObject);
var
   bikeWhell: TBikeWheelFrontXYZ;
begin
   bikeWhell := nil;
   try
      try
         bikeWhell := TBikeWheelFrontXYZ.Create;
         IBikeWheelFront(bikeWhell).DoBikeWheelFront;
         IBikeWheel(bikeWhell).DoBikeWheel;
      except
         on E: Exception do
         begin
            raise;
         end;
      end;
   finally
      if Assigned(bikeWhell) then FreeAndNil(bikeWhell);
   end;                                          
end;

InformationsquelleAutor der Antwort Passella