UpsKrn.ArbreBinaire.Comparaison
Comparaison : Nul Ou Appel Lecture Public;
Description
La propriété Comparaison en lecture seule mentionne le critère de l'arbre binaire.
Exemple
/****************************************************************/
Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet
/* Objet : Compare des 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);
...
Si A.Comparaison==ComparerCaractere Alors
/* Le critère est 'ComparerCaractere'. */
Fin Si
Fin Principal
Traduction