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...