Classer un TObjectList

Re-bonjour à tous,

Je poursuis dans ma quête de la compréhension des TObjectList...Ma question est:
Est-il possible de classer les éléments d'un TObjectList en fonction d'un de leur paramètre?
Par exemple classer des objets crées dynamiquement en fonction de leur tag?

J'en tenter la fonction SORT, mais je ne vois pas quoi passer en paramètre:

Code:

---

1 2 3 4 5 6 7 8 9 10

function Compare (item1:integer;item2:integer) : integer; begin if item1 >= item2 then result := 1 else result := -1; end; procedure TForm4.Button9Click(Sender: TObject); begin ListObject1.Sort(@Compare(?,?); end;

---

Merci bocoup pour votre aide.

@+.

Tu ne donne pas de paramètres

Code:

---

1 2 3 4 5

procedure TForm4.Button9Click(Sender: TObject); begin ListObject1.Sort(@Compare); end;

---

et ça devrait marcher


cdlt

e-ric

salut

il faut faire de cette facon :

Code:

---

1 2 3 4 5 6 7 8 9

function CompareNames(Item1, Item2: Pointer): Integer; begin Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name); end; procedure TForm1.Button1Click(Sender: TObject); begin List1.Sort(@CompareText); end;

---

Et ne pas se tromper en recopiant ^^:

Code:

---

List1.Sort(@CompareNames);

---

au lieu de

Code:

---

List1.Sort(@CompareText);

---

Merci pour tout, ma fonction de tri fonctionne nickel...

@+.

salut

argh je suis decouvert ;)

@+ Phil

Je suis sûr que tu l'as fais exprès pour forcer les néo-développeur comme moi à réfléchir... ;)

Je reviens sur le problème, car je n'arrive pas à finaliser ma fonction Compare, et comme un bout de code vaut mieux que de longues explications:

Code:

---

1 2 3 4 5 6

function Compare (Item1, Item2: TComponent ) : integer; begin if (Item1.Tag > Item2.Tag) then Result := 1; if (Item1.Tag = Item2.Tag) then Result := 0; if (Item1.Tag < Item2.Tag) then Result := -1; end;

---

Le problème c'est que je lorsque deux de mes items sont identiques, il y a une inversion de ces items dans mon tri (alors que je le souhaite pas puisque je m'en sert pour l'affichage à l'écran...)

Quelqu'un aurait-il une solution?

Merci.

@+.

Cen'est pas dû au fait que le TList utilise comme algo le QuickSort (dixit l'aide)?

Je viens de lire un article, et il semblerait bien que ce soit le problème... :aie:
Je vois pas comment m'en sortir, à moins d'utiliser encore un autre champs genre le hint pour repérer la position...
Ou de faire ma propre fonction de tri.

Je penche pour la denière solution.

J'ai fait une fonction rapide de triage...

Code:

---

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

procedure TForm4.TrierComponent; var i,j,temp:integer; begin With TListObject1 do begin for i:=0 to Count-2 do for j:=i+1 to Count-1 do begin if (TComponent(items[i]).Tag > TComponent(items[j]).Tag) then begin temp := TCombobox(items[i]).Tag; TCombobox(items[i]).Tag := TCombobox(items[j]).Tag; TCombobox(items[j]).Tag := temp; end; end; end; end;

---

Hesite pas à la modifier si tu trouve des améliorations, en tout cas j'espère qu'il n'y auras jamais trop d'éléments à trier, parceque en vitesse c'est loin d'être optimal.

Merci pour tout,
@+.