signification du code

bonjour,

j'ai le code suivant en delphi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

If MasterContext.ClassManager.TranCount=0 then begin TranFlag:=TRUE; MasterContext.ClassManager.BeginTran(0); end else TranFlag:=False;   Try   importsession:=MasterContext.ClassManager.CreateObjectList('TSessionImport'); importsession.AddWhere('','UpdDate',TRUE,unassigned); importsession.GetInstance(importsession.count-1,masession);   If TranFlag then MasterContext.ClassManager.commit; Except If TranFlag then MasterContext.ClassManager.Rollback; Raise; end; ....... .......

---

j'aurais deux questions sur cette portion de code.
il faut dire que la procédure n'est pas entière donc il se peut que tous les if et les try ne soient pas fermés.

1) est ce que le premier try fait partie du else au dessus ou il y a un end implicite pour le if ?
é) que signifie exactement le Raise ?


Merci à vous.

Un if-then-else ne porte que sur une seule instruction.

Si tu veux avoir plusieurs instructions pour le then ou le else, il faut mettre un bloc begin end.

Dans ton cas, il n'y a pas de begin-end sur le else. Donc il s'arrête au point-virgule.

Le try s'applique après le if.

Le Raise sert ici à redéclencher l'exception : On a un bloc de code entre le try et le except. Si ce dernier déclenche une erreur, l'exception est capturée et traitée par le bloc except.
Tu gères un contexte transactionel. En cas d'exception dans la transaction, tu veux faire un rollback de la transaction base de données.
Par contre, tu veux qu'ensuite, l'erreur remonte jusqu'à l'appelant pour qu'il sache que le traitement a échoué.
Normalement le bloc except a permis de traiter l'exception. Donc pour qu'elle remonte jusqu'à l'appelant, il faut la redéclencher avec l'instruction raise toute seule.

Je te remerci pour ces explications qui sont peut être du basique mais il faut bien débuter