Trier une Listview à partir d'une Valeur qui est dans un object

J'aimerais bien trier un Listview à partir d'une valeur (alphanumérique) que j'ai mise dans un Object qui est dans la Listview.
En ajoutant des lignes j'aimerais bien que la listeview est trié automatiquement!
En mettant par example:

Code:

---

1 2	TListView.AlphaSort

---

la première colonne est bien trie mais est-ce possible de la faire trier à partir de la valeur qui est dans l'object
Par ou dois-je commencer et comme faire merci beaucoup pour l'aide.
Salutations

Salut

Jette un coup d'oeil à l'évènement OnCompare, il répond à ce que tu attends.
Dès que tu auras implémenté l'évènement c'est lui qui sera appelé par AlphaSort.

@+ Claudius

Bonsoir,
J'ai un peut regarder l'évènement OnCompare et si je comprend bien
il doit comparer entre deux Items...
Dois-je passer par là si je veux faire un tri d'un seul champs ou la valeur est dans l'object. Merci

Je suis en train de faire des tests et pour comparer les deux Items il faut faire

Code:

---

1 2	Compare := CompareStr (Item1.Caption, Item2.Caption)

---

Mais mon problem et que je ne vois pas comment mettre ma valeur de l'objet dans Item1.??

Pour récuperé la valeur je procéde comme ceci

Code:

---

1 2	TMaClass(ListView1.Items[ListView1.ItemIndex].Data).Value1

---

Merci beaucoup pour un petit example...
Salutations

Salut :)
De quel type est Value1?
En fait, tu dois renvoyer 3 valeurs possibles dans Compare:

Citation:

---

Envoyé par l'aide de Delphi

Si Item1 est identique à Item2 dans l'ordre de tri, affectez la valeur 0 au paramètre Compare. Si Item1 est inférieur à Item2, affectez une valeur négative au paramètre Compare. Si Item1 est supérieur à Item2, affectez une valeur supérieure à zéro au paramètre Compare.

---

Voila c'est aussi simple que ça ;) Une petite recherche t'aurait donné la solution.

Salut,
Le type de Value1 est string;
Mon problème est que je n'arrive pas à mettre la valeur de l'object Value1
dans la function CompareStr.
Avec Item1.Caption c'est ok mais comment mettre

Code:

---

1 2	TMaClass(ListView1.Items[ListView1.ItemIndex].Data).Value1

---

dans la fonction CompareStr
ceci ne fonctionne pas

Code:

---

1 2	Item1.TMaClass(ListView1.Items[ListView1.ItemIndex].Data).Value1

---

Salutations et merci

Bonsoir,

Dans le OnCompare, les string seront donnés par :

Citation:

---

s1:=String(Item1.Data) ;
s2:=String(Item2.Data) ;

---

Bonjours à tous,
Je vient de faire des tests et tout passe.
Le tri n'est pas encore correct, mais je suis en train de chercher.
Bonne journée, salutations