TList et IndexOf

Bonjour,

Peut on utiliser la propriété indexOf pour retrouver un objet "complex" dans une TList?
Pour ce faut il implémenter l'opérateur = ou autre? Je en veux bien sur pas me contenter de comparer juste les pointeur des 2 objets!

D'avance merci

Ben

Oui

Il faut pour cela créer une fonction de type TListSortCompare

Code:

---

1 2 3 4 5

procedure Sort(Compare: TListSortCompare);   ensuite   MaListe.Sort( TaFonctionDeComparaison );

---

F1 sur TList.Sort et tu auras toutes les infos.

bon courage !

:EDIT:
autant pour moi j'ai été un peu vite.
Pour le IndexOf, tu peux juste faire un parcours linéaire et rechercher tes données. De toute manière, IndexOf est lui même linaire...
donc tu peux faire ton propre MonIndexOf comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

IIndexTrouve := -1; for i := 0 to MaListe.count - 1 do with TMonType( MaListe.Objects[ i ] ) do begin // tester si élément rempli condition if ConditionRemplie then begin IIndexTrouve := i; break; end; end

---

L'objet TList permet de trier des objets à l'aide d'une fonction de comparaison "perso" passée en paramètre.
Par contre, il me semble que IndexOf() ne le permette pas.

Pour cela je ne vois que la solution de faire un dérivé de TList dans lequel tu devras écrire ta propre méthode de recherche (comme dans le TStringList par exemple :wink: )

Note, j'ai modifé mon post d'avant ;)

Salut

je comprend mal ta question et je pense que les réponses proposées ne sont pas pertinentes. IndexOf retourne le premier indice de l'objet paramètre si celui-ci se trouve dans la liste. La recherche est basée sur la comparaison des référence d'objets.

En ce qui concerne la comparaison, et si tu as la main sur le code de tes objets, ajoutes un méthode TTonObjet.CompareAvec(unAutre : TTonObjet) : boolean;

La comparaison d'objet Obj1=Obj2 est une comparaison de référence pas une comparaison "profonde" basée sur l'état des objets.

Une fonction de recherche basée sur la comparaison "profonde" d'objets n'existe pas dans TList. Il serait préférable de créer une classe container spécifique.

Cette réponse te convient-elle ?

cdlt

e-ric

Effectivement, comme le précise e-ric, IndexOf fait une comparaison de pointeurs

donc si tu as :

Code:

---

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

var obj1, obj2, obj3:TMonObj; liste:TList begin ...   obj1 := TMonObj.create; obj2 := obj1; obj3.assign(obj1);   liste.Add(obj1); ind := liste.IndexOf(obj1); // ind = 0 ind := liste.IndexOf(obj2); // ind = 0 ind := liste.IndexOf(obj3); // ind = -1   ...   end;

---

car obj3 aura les mêmes valeurs de propriétés que obj1 mais pas la même adresse mémoire alors que obj2 pointe sur obj1

:idea: Si tu ne peux pas modifier la classe d'objet dans la liste et si tu ne peux pas faire un dérivé de TList, il reste la solution de faire une fonction de recherche à laquelle tu passeras les 2 objets (la liste et l'objet recherché)
par exemple comme ceci :

Code:

---

1 2 3 4 5 6 7

function marecherche(alist:TList; aObj:TMonObj):integer; begin for Result := 0 to alist.Count-1 do if MaComparaison(alist[Result] , aObj) then Exit;   Result := -1; end;

---

OK un grand merci a tous alors dommage qu'il n'existe pas un classe de base fesant déja ca je pense que c'est pourtant utile à plus d'une occaz...

Merci

Bonjour,

Il n'y a effectivement pas d'implémentation standard d'une fonction d'index couplée à un "callback" de comparaison.

C'est une des raisons (avec aussi la facilité de debug) pour laquelle j'utilise systématiquement des Tstringlist au lieu de Tlist. Il faut à la création ou à la modification de chaque objet de la liste, créer une chaine de comparaison à partir des données de l'objet et la mettre dans la tstringList.

Exemple :

Code:

---

1 2 3 4 5 6 7 8

var tsl:tstringlist ; // ajout d'un objet tsl.add(myobject.getCompareString,myobject) ;   // recherche i:=tsl.indexof(searchedString) ; if i>=0 then foundObject:=Tmyobject(tsl.objects[i]) else foundObject:=nil ; ...

---