Fonction Optimiser(Invariant) Compter(Modele : Nul Ou TypeElement, Position : Nul Ou Entier=Nul) Retourner Nul Ou Entier;
La comparaison a lieu par application de la méthode Identique du type Objet.
Si la collection est Nul, alors le résultat est Nul.
Si Position est inférieure ou égale à zéro, alors le comptage a lieu en début de collection.
Principal
/*******/
Variable
/******/
L : ListeDe Caractere;
C : Caractere;
Debut
C="A";
L=ListeDe(C);
L+="A";
L+=C;
Ecran.Ecrire(L.Compter(C));
/* L contient deux fois la valeur de C. */
Fin Principal
- | - | - | - | - | - | - | - | - |