Exception in Basis-Klasse abfangen?

[mjenke]

Hallo, jottkaerr,

vielen Dank für den Tipp, aber der hilft mir leider nicht weiter.

Es gibt nicht eine (oder auch nur eine geringe Anzahl von) Methode(n), die ich in den abgeleiteten Klassen aufrufen muss (in Deinem Beispiel die Methode "Work"). Die Methoden selbst sehen teilweise sehr unterschiedlich aus, haben die unterschiedlichsten Parameter etc.

In dem Fall wäre es tatsächlich einfacher, folgendermaßen vorzugehen:

Delphi-Quellcode:

TBase = class
  protected
    procedure RepairMe;
end;

TDerived = class ( TBase )
  public
    procedure DoSomething;
end;

TDerived2 = class ( TBase )
  public
    procedure DoSomethingCompletelyDifferent;
end;

{...}

{TBase}

procedure TBase.RepairMe;
begin
  {...}
end;

{TDerived}

procedure TDerived.DoSomething;
begin
  try
    ...
  except 
    RepairMe; 
  end;
end;

{TDerived2}

procedure TDerived2.DoSomethingCompletelyDifferent;
begin
  try
    ...
  except
    RepairMe;
  end;
end;

Aber das ist ja genau der Punkt, den ich gerne vermieden hätte...