UpsKrn.ArbreBinaire.Unique
Unique : Booleen Lecture Public;
Description
La propriété Unique en lecture seule mentionne si l'arbre binaire est unique, c'est à dire si le critère ne doit identifier qu'un seul objet par noud de l'arbre.
Exemple
/****************************************************************/
Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet
/* Objet : Compare les caracteres. */
/****************************************************************/
Debut
Si C1==Nul Ou C2==Nul Alors
Retourner ComparaisonNul;
Fin Si
Si C1<C2 Alors
Retourner ComparaisonAvant;
Fin Si
Si C1>C2 Alors
Retourner ComparaisonApres;
Fin Si
Retourner ComparaisonEgal;
Fin Fonction
Principal
/*******/
Variable
/******/
A : ArbreBinaireDe Caractere;
Debut
A=ArbreBinaire(ComparerCaractere, Faux);
A+="A";
A+="B";
A+="C";
Ecran.Ecrire(A.Unique);
/* Ecrit 'Vrai' si l'arbre est unique. */
Fin Principal
Traduction