Was würdet ihr von einem try-except-finally-Konstrukt halten?

[Codehunter]

Moin!

Wenn ich mir verschiedene Quellen so anschaue, insbesondere wenn man mit Datenbanken zu tun hat, fällt mir immer wieder auf wie sperrig das Exception-Handling eigentlich ist:

Delphi-Quellcode:

myBoolAllesOk := False;
try
  try
    myTransaction.StartTransaction;
    myDB.TuWas;
    myBoolAllesOk := True;
  except
    on E: EIrgendwas do myTransaction.Rollback;
  end;
finally
  if myBoolAllesOk then
    myTransaction.Commit;
end;

Und man muss sich drauf verlassen, dass die Transaction nicht auch noch zwischen dem Rollback und dem Commit zufällig anderswo eine Transaction gestartet hat. Um auf Nummer sicher zu gehen, gibts die mitlaufende boolsche Variable. Wie elegant wäre da sowas:

Delphi-Quellcode:

try
  myTransaction.StartTransaction;
  myDB.TuWas;
except
  on E: EIrgendwas do myTransaction.Rollback;
finally
  myTransaction.Commit;
end;

Soweit ich das überblicken kann ließe sich eine solche Spracherweiterung problemlos einbauen weil es rückwärtskompatibel wäre.

Was haltet ihr davon?

Grüße
Cody

[sh17]

Ja, so ein Konstrukt wäre sinnvoll,

aber warum nicht so?

Code:

  try
    myTransaction.StartTransaction;
    myDB.TuWas;
    myTransaction.Commit;
  except
    on E: EIrgendwas do myTransaction.Rollback;
  end;

[Codehunter]

Das war nur ein Pseudocode-Beispiel wie es in der Praxis oft vorkommt und sich viele was drunter vorstellen können. Anstatt der Transaction kann an sich auch irgend ein Object-Create-Free vorstellen.

[mkinzler]

Zitat:

Delphi-Quellcode:

try
  myTransaction.StartTransaction;
  myDB.TuWas;
except
  on E: EIrgendwas do myTransaction.Rollback;
finally
  myTransaction.Commit;
end;

ist meines Erachtens aber ein falsches Beispiel, den der Commit soll ja nicht auf jeden Fall getriggert werden.

Eher

Delphi-Quellcode:

try
  o := TKlasse.Create;
  TuWas;
except
  on E: EIrgendwas do FehlerBearbeitung;
finally  
  o.Free;
end;

[DeddyH]

Oder noch eher:

Delphi-Quellcode:

o := TKlasse.Create;
try
  TuWas;
except
  on E: EIrgendwas do FehlerBearbeitung;
finally 
  o.Free;
end;

[Codehunter]

Also Idee gut, Beispiel Mist?

[DeddyH]

Zu dieser Idee gibt es schon einige Threads, da müssten eigentlich sämtliche Pros und Contras erörtert worden sein.

[mjustin]

Die nächste Steigerungsstufe wäre dann:

Delphi-Quellcode:

// ...

    try (Obj := TMyClass.Create)
      // mach etwas mit dem Objekt
      ...
    except
      // behandele die Exception
      ...
    end;

// ...

Und das Free kann man sich sparen, weil der Compiler Code erzeugt, mit dem der Destruktor nach dem "End" aufgerufen wird.

[Der schöne Günther]

Als ich noch hauptsächlich in Java unterwegs war und dann zu Delphi kam war ich auch erstmal baff wie so etwas wie try..except..finally fehlen kann.

Ganz ehrlich: Ich vermisse es nicht im geringsten. Andere Dinge fehlen mir sehr viel mehr. Wenn man es denn wirklich einmal braucht ist ein try..(try..except)..finally allein durch die Einrückung schon übersichtlicher, finde ich.

[Aviator]

Ich finde die Idee gut und vermisse das auch in Delphi seit ich vor Jahren das erste Mal in C# damit in Kontakt getreten bin.

Zitat von mjustin:

Die nächste Steigerungsstufe wäre dann:

Delphi-Quellcode:

// ...

    try (Obj := TMyClass.Create)
      // mach etwas mit dem Objekt
      ...
    except
      // behandele die Exception
      ...
    end;

// ...

Und das Free kann man sich sparen, weil der Compiler Code erzeugt, mit dem der Destruktor nach dem "End" aufgerufen wird.

Also eine Art using Direktive wie es sie in C# gibt? Das wäre natürlich auch was feines.

Code:

using (HttpClient client)
{
    DoSomethingWithClient(client);
}