1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| ValeurInitial : (tableau de nombre de ligne) * (nombre de champ) de type nombre
Nouveautableau : dynamique de type String
Ligne = Select num1, Num2 From MaTable
i=0
Pour chaque ligne
ValeurInitial[i] = ligne.Num1
ValeurInitial[i+1] = ligne.Num2
inc(i)
boucler
Trier le tableau Valeurinitial // dans l'ordre croissant
oldValeur = ValeurInitial[0] // évite le passage au premier parcourir
comptevaleur = 1
pour chaque i=1 to high(ValeurInitial) // attention pas zero sinon on compte é fois le premier
Valeur = Valeurinitial[i]
si Valeur <> oldValeur alors
// ici il faut enregistrer le comptevaleur par rapport
// à Valeurinitial[i] dans un nouveau tableau
NouveauTableau[i] = IntToStr(Valeurinitial[i]) + ',' + InttoStr(CompteurValeur)
compteurValeur = 1
OldValeur = Valeur
sinon
// On compte le nombre d'occurence
compteurValeur = CompteValeur + 1
finSi
boucler |