Insertion dans un TObjectList

Bonjour à tous,

Mon but est d'inverser deux Combobox stockées dans un TObjectList en fonction de la valeur de leurs tags:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

MaCombo : TComboBox; procedure TForm4.TrierCombo; var i,j,k:integer; begin for i:=0 to TObjectList .Count-2 do for j:=i+1 to TObjectList .Count-1 do begin if (TCombobox(TObjectList .items[i]).Tag > TCombobox(TObjectList.items[j]).Tag) then begin MaCombo := TCombobox(ComboCatenaire.items[j]); ComboCatenaire.delete(j); ShowMessage(IntToStr(MaCombo.Tag)); ComboCatenaire.insert(i,MaCombo as TComboBox); ShowMessage(IntToStr(MaCombo.Tag)); end; end; end

---

Le problème c'est qu'apparemment toutes les propriétées relatives à ma combobox ont disparues (par exemple le tag passe de 0 avant l'insert, à 19773984 après). Je suppose que cela vient du fait que insert accepte en paramètre un TObject, mais alors comment lui passer une TCombobox?

Merci bocoup,

@+.

Ma question est peut-être imbécile mais ....

... si ton objectif est de trier la liste, pourquoi n'utilises-tu pas Sort() ?

... aussi ...

Si tu cherches à déplacer les éléments à l'intérieur d'une même liste, peut-être est-ce que Move() ou Exchange() seraient plus judicieux.

F1 est notre ami ;).

Tout d'abord merci pour ta réponse...J'ai déjà fait le tri par sort (j'avais même déjà fais une discussion il n'y a pas longtemps dessus).
Mais sort utilise QuickSort(qui n'est pas un tri stable), donc mes éléments avec des tags identiques étaient inversés alors que je ne le souhaite pas. :aie: .

C'est pour cela que, après conseils, je me suis tourné vers un tri "manuel".

@+.

salut

pour des element identique rien ne t'empeche de faire un autre test afin de definir la position de l'elements
le quicksort est un trie et la stabilité n'as pas de rapport avec le moindre trie

bon ceci est un autre probleme
comment a tu integrer tes element dans la liste d'objet ???

@+ Phil

Citation:

---

Envoyé par slimjoe

F1 est notre ami

---

Effectivement, j'ai pas été malin sur le coup puisque je me suis arrêter uniquement sur les premières méthodes de TobjectList...Ca c'est post qui meritera un délestage. :D
En tout cas avec Exchange ça marche nickel, mais je trouve quand même le comportement de insert curieux.

Citation:

---

Envoyé par anapurna

pour des element identique rien ne t'empeche de faire un autre test afin de definir la position de l'elements
le quicksort est un trie et la stabilité n'as pas de rapport avec le moindre trie

---

Je sais pas, mais apparemment QuickSort utilise une méthode de pivot (elle choisit un élément dans la liste et place tous les autres en fonction de ce pivot). Et d'après les développeurs du forums Algo, elle aurait comme particularité d'être très rapide mais également instable...J'ai essayer plusieurs tests avec ma fonction compare, et j'ai jamais réussis à obtenir ce que je souhaitais. :(

Merci pour tout.

@+.

Quand ils disent qu'elle est instable, ils ne parlent surement pas du comportement mais de la complexité de l'algorithme. En effet de part sa conception, cet algorithme aura une complexité variable en fonction des données présentes dans la liste à trier. Donc au final tu peux avoir un différence de temps de tri en fonction de l'ordre des choses a trier. MAIS même dans le pire des cas, le quicksort reste un algorithme parmis les plus efficace pour le tri.

Si ca te parle : Dans le cas moyen la complexité de l'algorithme est en =(n log(n)) mais dans le pire des cas elle peut finir en O(n^2).

salut

effectivement le quicksort utilise un pivot
c'est un peu comme si tu fait une recherche par dichothomie
tu ne lit pas toutes les pages du dico
tu ouvre une page ensuite selon la lettre ou tu te trouve tu recherche dans la partie droite de ton dico ou dans la partie gauche c'est exactement le meme principe quand a ton trie qui est beaucoup mais beaucoup plus lent c'est un trie a bulles ou Buble sort

@+ Phil

Son problème est que QuickSort ne respecte pas l'ordre de départ pour des éléments de valeur identique.

Après son tri n'est pas le plus performant pour faire ce qu'il veut, mais sur un petit nombre d'éléments, ça ne gêne pas trop.

Citation:

---

Le tri rapide n'est pas un tri stable car il ne préserve pas nécessairement l'ordre des éléments possédant une clef de tri identique.

---

C'est pas moi qui le dis ;) .

Citation:

---

Envoyé par anapurna

effectivement le quicksort utilise un pivot
c'est un peu comme si tu fait une recherche par dichothomie
tu ne lit pas toutes les page du dico
tu ouvre une page ensuite selon la lettre ou tu te trouve tu recherche dans la partie droite de ton dico ou dans la partie gauche c'est exactement le meme principe quand a ton trie qui est beaucoup mais beaucoup plus lent c'est un trie a bulles ou Buble sort

---

Je viens de me plonger dans les différentes sortent de tris, et effectivement le miens est très lent, mais je vois pas comment faire autrement, et à priori je n'aurais jamais plus de 100 éléments à trier, donc ça devrait passer?

@+.

Citation:

---

Envoyé par hy00ga

Quand ils disent qu'elle est instable, ils ne parlent surement pas du comportement mais de la complexité de l'algorithme.

---

Je ne suis pas sur que ce soit juste, c'est peut être justement le comportement. mais il faudrait vérifier :?
La partie instable de ce tri, c'est qu'en cas de doublon (ou plus) sur certains élements, le tri peut donner des résultats différents selon l'ordre de départ.
Je crois que le terme 'instable' est pour ceci.

Exemple de tri selon le 1er nombre des couples.
liste non triée: (2,a), (3,b), (2,b)
la liste triée peut être
soit: (2,a), (2,b), (3,b)
soit: (2,b), (2,a), (3,b).

-> 2 listes finales, triées selon 1 critère, ... mais différentes.

A ce moment là, tu peux définir ta propre méthode de comparaison, faisant intervenir les données supplémentaires si c'est possible.

je dis ca, mais désolé si je suis à coté de la plaque :D

[EDIT]: tu l'as découvert avant mon post visiblement ;)

Hihi Oui ton tri-bulle fonctionnera parfaitement. Enfin ca depend le nombre de fois que tu l'execute .. mais pour 100 elements ca ne pose pas de problèmes... La complexité de l'algorithme de tri devient importante quand nous avons des grandes quantités de valeurs a trier (ou qu'on est vraiiiment regardant du temps) :)

Edit : Ahh oki .. je comprend ce que tu entend par instable. C'est vrai que la nous avons un cas particulier avec des doublons qui ne sont pas vraiment des doublons. (valeur a comparer égale mais info différente).

Citation:

---

Envoyé par PadawanDuDelphi

Mais sort utilise QuickSort(qui n'est pas un tri stable), donc mes éléments avec des tags identiques étaient inversés alors que je ne le souhaite pas

---

Salut!

Encore une fois, je dis peut-être n'importe quoi mais bon...

Quand on utilise Sort(), on doit passer une procédure en paramètre (TListSortCompare) qui indiquera à l'algo de tri si on doit permuter les éléments ou non (ça, tu sais ;)). As-tu essayé, dans la procédure, de vérifier si les Tag sont identiques et, si c'est le cas, de tester avec leur indices dans la liste ? Si les éléments sont identiques, on les "trie" selon leur position d'origine (donc ils devraient rester en place).

Code:

---

1 2 3 4 5 6 7

function Compare(Item1, Item2: Pointer): Integer; begin Result := CompareValue((Item1 as TComboBox).Tag, (Item2 as TComboBox).Tag);   if Result = EqualsValue then //Les Tag sont identiques Result := CompareValue(MaListe.IndexOf(Item1), MaListe.IndexOf(Item2)); end;

---

J'ai pas testé et je ne suis pas certain que ça fonctionne.
Je ne fais que lancer l'idée...

:P

Merci slimjoe, :D

Après test, je peux t'affirmer que ta fonction fonctionne nickel...

@+.