Prüfen, ob eine Method überschriben wurde

[Martin W]

Idee:

Delphi-Quellcode:

interface

type
  TBaseClass = class
  public
    procedure DoSomething; virtual; abstract;
    constructor Create;
  end;

type
  TWorkClass = class(TBaseClass)
  public
    procedure DoSomething; override;
  end;

implementation

constructor TBaseClass.Create;
var
  Impl: procedure of object;
  Base: procedure of object;
  varClass: TClass;
begin

  Impl := DoSomething;

  varClass := self.ClassType;

  while (varClass <> nil) AND (varClass <> TBaseClass) do
    varClass := varClass.ClassParent;

  if (varClass <> nil) then
    begin
     
      Base := TBaseClass(@varClass).DoSomething;

      if TMethod(Impl).Code <> TMethod(Base).Code then
        begin
          DoSomething;
        end;

    end;

end;