Bubblen Exceptions nach oben durch einen try-finally-Block?

[PaulJr]

Hallo DGL-luke,

man könnte dies z.B. so machen:

Delphi-Quellcode:

var
  SomeClas : TSomeClas;
Begin

try
  SomeClas := TSomeClas.Create;
 If SomeClas <> NIL then 
 with SomeClas do 
    try 
      SomeMethod; 
      SomeMethodThatThrows; //wirft Exception! 
    finally 
      Free; 
    end; 
except 
  on E:Exception do 
    ShowmEssage(E.Message); 
end;

end;

Gruß

PaulJr.