Prüfen, ob eine Method überschriben wurde

[Martin W]

Hi,

folgendes Problem:

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;
begin

  if (DoSomething wurde überschrieben) then
    begin
      DoSomething;
    end;

end;

Wie kann ich das Problem lösen? Idee von C#, siehe https://stackoverflow.com/questions/...g-reflection-c.

Viele Grüße,
Martin