Discussion :

[the big ben 5]

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

[TicTacToe]

Oui

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

Code :

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

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 :

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

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

[devyan]

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 )

[TicTacToe]

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

[e-ric]

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

[devyan]

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

donc si tu as :

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

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 :

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

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;

[the big ben 5]

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

[Graffito]

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 :

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

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