Définition...
Opérateurs...
Exemple...
Voir aussi...
Traduction...
/***************************************************************/
Type Transaction Defaut Final
/* Objet : Type des objets correspondant aux transactions. */
/***************************************************************/
Prive :
NomTransaction : Caractere Lecture Public;
TransactionMere : Nul Ou Transaction Lecture Public;
TransactionFille : Nul Ou Transaction Lecture Public;
Public :
Constructeur(NomDeLaTransaction : Caractere);
Procedure Valider();
Procedure Invalider();
Fin Type
Le type Transaction possède un constructeur admettant en paramètre le nom de la transaction.
Un objet de type Transaction est créé pour chaque tâche.
Type TA Transactionnel Defaut
C : Caractere;
Constructeur();
Fin Type
Principal
Variable
T : TA;
Tr : Nul Ou Transaction;
Debut
T.TA="coucou";
TachePrincipale.TransactionCourante.Valider();
/* On valide la modification. */
Ecran.Ecrire(T.Ta+"\n");
T.TA="hello";
TachePrincipale.TransactionCourante.Invalider();
/* On invalide la modification. */
Ecran.Ecrire(T.Ta+"\n");
Tr=Transaction("MaTransactionFille");
Si Tr==TachePrincipale.TransactionCourante Alors
/* Egalité entre deux transactions. */
...
Fin Si
Si Tr!=TachePrincipale.TransactionCourante Alors
/* Inégalité entre deux transactions. */
...
Fin Si
Fin Principal
Verhandlung | Transaction | 交易 | Transaccion | - | - | - | - |