Discussion :

[PadawanDuDelphi]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

@+.

[slimjoe]

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

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

[slimjoe]

... 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 .

[PadawanDuDelphi]

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. .

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

@+.

[anapurna]

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

[PadawanDuDelphi]

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.
En tout cas avec Exchange ça marche nickel, mais je trouve quand même le comportement de insert curieux.

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.

@+.

[hy00ga]

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).

[Linkin]

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.

[PadawanDuDelphi]

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 .

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?

@+.

[TicTacToe]

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

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

[anapurna]

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

[slimjoe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[PadawanDuDelphi]

Merci slimjoe,

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

@+.