finally wird nach exit nicht abgearbeitet

[jaenicke]

Dann war die Unit vermutlich nicht neu kompiliert worden. Das sieht man normalerweise aber an den blauen Punkten links ganz gut.

[shmia]

Also mir scheint der ganze Code etwas strukturlos zu sein.
Im Prinzip muss eine Transaktion so ablaufen:

Delphi-Quellcode:

Connection.BeginTrans;  // Schreibweise hängt von den Zugriffskomponenten ab
try
  DoWork;
  Connection.CommitTrans;
except
  Connection.RollbackTrans;
end;

Dabei ist es sehr sinnvoll für DoWork tatsächlich eine Prozedure zu verwenden.
Man trennt so die eigentliche Arbeit von der Transaktionssteuerung.
Das heisst also entweder wird in DoWork eine Exception geworfen => dann erfolgt ein Rollback.
Oder es wird keine Exception geworfen => dann erfolgt kein Rollback sondern ein Commit.
Möchte man innerhalb der Procedure abbrechen, dann kann man z.B. einfach Abort aufrufen.

[jsheyer]

Hallo,

vielleicht bin ich ja gerade im falschen Film, aber wird mit exit, nicht direkt die ganze procedure verlassen und daher greift das nicht??
Ich hätte an der Stelle ja auch ein break; benutzt um nur die while Schleife zu beenden.
Ansonsten stimme ich natürlich messie zu

LG
Jörg

[jaenicke]

Zitat von jsheyer:

vielleicht bin ich ja gerade im falschen Film, aber wird mit exit, nicht direkt die ganze procedure verlassen und daher greift das nicht??

Ja, bist du.
Finally-Blöcke werden trotz Exit oder einer Exception abgearbeitet, genau dafür sind sie da: Um immer abgearbeitet zu werden um aufzuräumen, egal was passiert ist.

[himitsu]

Ein "Exit" zwischen Try-Finally/Except löst eine Stille Exception aus, ähnlich dem Abort.
Damit rauscht der Exit-Aufruf durch alle Finally-Blöcke durch, bis hin zum END der Prozedur/Funktion, wo diese Exit-Exception in einem impliziten Try-Finally dann abgefangen und die Prozedur verlassen wird.

Also ja, Exit führt auch die Finallies us.


- ohne Try-Except/Finally ist es ein JUMP zum Prozedur-Ende
- mit Try-Except/Finally ist es eine "Exception"

[jsheyer]

Danke für das auf die Sprünge helfen
Da ich das in so einer konstellation nach Möglichkeit nicht benutze, war ich mir nicht sicher.
Aber man lernt ja nie aus

LG
Jörg

[Popov]

Exit ist ok, nehme ich in der Regal auch, aber kennst du Abort? Das ist eine Stille Exception. Damit geht es bewußt in den Finally oder Except Block.