Exception in Basis-Klasse abfangen?

[jottkaerr]

Hallo,

mach das ganze mit dem Template-Muster:

Delphi-Quellcode:

type
  TBase = class(TObject)
  protected
    procedure DoThis; virtual;
    procedure DoThat; virtual;
  public
    procedure Work;
  end;

  TDerived = class(TBase)
  protected
    procedure DoThis; override;
    procedure DoThat; override;
  end;

{ TBase }

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

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

procedure TBase.Work;
begin
  try
    DoThis;
    DoThat;
  except
    on e: Exception do
      { Exceptions behandeln }
  end;  
end;

{ TDerived }

procedure TDerived.DoThis;
begin
  { ... }
  if Error then
    raise Exception.Create('Fehle in TDerivedDoThis!');
  { ... }
end;

procedure TDerived.DoThat;
begin
  { ... }
  if Error then
    raise Exception.Create('Fehle in TDerivedDoThat!');
  { ... }
end;

jkr