Möglichkeit: Try ... Except ... Finally ?

[angos]

Hi Bbommel,

bei solchen Konstrukten würde der Code nicht mehr gehen

Delphi-Quellcode:

begin
  SomeOne := TSomeone.Create;
  try
    try
      doSomething;
       ...
      ...
    except
      Bam;
      Exit;
    end;
  finally
    SomeOne.Free;
  end;
  
  
  UndhierNochwasmachenwennnichtbeendetwurde;
  UndNochwas;
  ...
end;