Collection

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=collection.upl

Revenir en haut de la page...

collection

Revenir en haut de la page...

Source Composant "Exemple d'emploi de l'interface collection" Version 1.1.0;

Fonction F(O1:Nul Ou Caractere, O2:Nul Ou Caractere) Retourner ComparaisonObjet
/*****************************************************************************/
Debut
Si O1==Nul Ou O2==Nul Alors Fin Si
Si O1<O2 Alors Fin Si
Si O1>O2 Alors Fin Si
Retourner ComparaisonEgal;
Fin Fonction

Procedure EcrireIterateur(M:Caractere, I:IterateurDe Caractere)
/*************************************************************/
Variable
Debut
Ecran.Ecrire(M);
Pour C=I.ParcoursAuDebut() JusquA I.DernierElement() Pas I.Suivant() Faire Fin Pour
Ecran.Ecrire("\n");
Fin Procedure

Procedure UtiliserCollection(M:Caractere, C:CollectionDe Caractere)
/*****************************************************************/
Variable
Debut
C2=C.Gauche(3);
EcrireIterateur(M+".Gauche(3)",IIterateur(C2));
C2=C.Droite(5);
EcrireIterateur(M+".Droite(5)",IIterateur(C2));
Fin Procedure

Principal
/*******/
Variable
Debut
A=ArbreBinaireDe(F, Vrai);
A+="AA";
A+="AB";
A+="AC";
A+="AD";
A+="AE";
A+="AF";
A+="AG";
A+="AH";
A+="AI";

L=ListeDe("LA");
L+="LB";
L+="LC";
L+="LD";
L+="LE";
L+="LF";
L+="LG";
L+="LH";
L+="LI";

T[0]="TA";
T[1]="TB";
T[2]="TC";
T[3]="TD";
T[4]="TE";
T[5]="TF";
T[6]="TG";
T[7]="TH";
T[8]="TI";

UtiliserCollection("A", ICollection(A));
UtiliserCollection("L", ICollection(L));
UtiliserCollection("T", ICollection(T));
Fin Principal

Revenir en haut de la page...