Abstrakter Vorfahr + Interface gemeinsam

[BerndS]

ein ganz einfaches Beispiel:

Delphi-Quellcode:

type

  IMyInterface = Interface
    procedure Tuwas;
  end;

  TMyAbstractClass = class(TInterfacedObject)
  public
    procedure Tuwas; virtual; abstract;
  end;

  TMyTuwas = class(TMyAbstractClass, IMyInterface)
  public
    procedure Tuwas; override;
  end;