UpsKrn.ComparaisonObjet


ComparaisonObjet Dans (ComparaisonAvant, ComparaisonEgal, ComparaisonApres, ComparaisonNul);

Description

L'énuméré ComparaisonObjet spécifie l'ordre de deux objets en fonction d'un critère. Cet énuméré est utilisé lors du tri ou du groupement d'objets d'une liste.

La signification des valeurs est la suivante :

ComparaisonAvant.
L'objet en premier argument est avant celui en second argument selon le critère à appliquer.
ComparaisonEgal.
L'objet en premier argument est identique à celui en second argument selon le critère à appliquer.
ComparaisonApres.
L'objet en premier argument est après celui en second argument selon le critère à appliquer.
ComparaisonNul.
L'objet en premier argument et celui en second argument ne sont pas comparable selon le critère à appliquer. Par exemple, l'un ou l'autre est Nul.

Exemple


Type Personne Defaut

	Nom : Caractere;

	DateDeNaissance : Date;

	Constructeur();

Fin Type



Fonction ParDateDeNaissance(P1 : Nul Ou Personne, P2 : Nul Ou Personne) Retourner ComparaisonObjet

/**********************************************************************************/

Debut

Si P1==Nul Ou P2==Nul Alors

	Retourner ComparaisonNul;

Fin Si

Si P1.DateDeNaissance < P2.DateDeNaissance Alors

	Retourner ComparaisonAvant;

Fin Si

Si P1.DateDeNaissance > P2.DateDeNaissance Alors

	Retourner ComparaisonApres;

Fin Si

Retourner ComparaisonEgal;

Fin Fonction



Principal

Variable

	L : ListeDe Nul Ou Personne;

Debut

...

L.Trier(ParDateDeNaissance);

/* Tri de la liste par date de naissance. */

...

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-