MustOverride?

[Uwe Raabe]

Zitat von stahli:

In meinem Fall für Aufräumaktionen für mehrere Klassen und Interfaces.
Jede Ableitung muss bestimmte Dinge beachten und daher i.d.R. die Methode überschreiben.

Mein gängiges Muster in so einem Fall ist dies:

Delphi-Quellcode:

type
  TBaseClass = class
  private
    procedure CommonCleanup;
  protected
    procedure InternalCleanup; virtual; abstract;
  public
    procedure Cleanup;
  end;

  TDerivedClass = class(TBaseClass)
  protected
    procedure InternalCleanup; override;
  end;

procedure TBaseClass.Cleanup;
begin
  CommonCleanup;
  InternalCleanup;
end;