Question sur QuickSort d'une TObjectList

Bonjour,

Il y a quelques temps déjà, j'avais poster sur le forum pour que l'on m'aide à utiliser la méthode Sort du TObjectList.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9

function compareClassName(item1, item2: pointer): integer; begin if TObject(item1).ClassName > TObject(item2).ClassName then Result := 1 else if TObject(item1).ClassName < TObject(item2).ClassName then Result := -1 else Result := 0; end;

---

En fait, je trie selon la classe de l'objet qui est soit de type TEntite soit de type TRelation. Le soucis que je viens juste de soulever, c'est que lorsque je trie 2 fois, je perds mon trie de façon alphabétique... En fait, je veux toujours avoir les objets rangé dans cet ordre : TEntite puis TRelation, quelque soit le nombre de fois que je trie

Si quelqu'un peut m'éclairer ...
Merci grandement :)

Heu, je viens de me rendre compte que j'ai dis une bêtise ... Ca fonctionne bien, mais c'est la fonction qui est pas assez complète...

Je reformule ma question ...

J'ai une collection d'objets de type TEntite et TRelation.
Les objets de type entité possèdent ou non des clés étrangères.

En fait, je cherche à trier ma collection à avoir d'abord tout les objets de type entité sans clé étrangère, puis ceux avec clé étrangère et enfin les relations.

J'espère que vous me suivez toujours :mrgreen:

Merci d'avance

Code:

---

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

function compareClassName(item1, item2: pointer): integer; begin Result:=AnsiCompareText(TObject(item1).ClassName,TObject(item2).ClassName); if Result=0 then begin if TObject(item1) is TEntite then Result:=AnsiCompareText(TEntite(item1).Name,TEntite(item2).Name) else Result:=AnsiCompareText(TRelation(item1).Name,TRelation(item2).Name) if Result=0 then Result:=integer(item1)-integer(item2); end; end;

---

j'ajoute toujours le dernier test sur la valeur du pointeur afin de m'assurer que des homonymes soient toujours présentés dans le même ordre :D

Merci encore tothpaul !

En ce moment, j'avance particulièrement vite grâce à ton aide! C'est plaisant :mrgreen:

Cependant, avant de mettre le sujet en résolu, j'aimerai juste bien cerner le code car j'ai vraiment un peu de mal pour comprendre le fonctionnement du trie QuickSort ... :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function compareClassName(item1, item2: pointer): integer; begin Result:=AnsiCompareText(TObject(item1).ClassName,TObject(item2).ClassName); if Result=0 then begin if TObject(item1) is TEntite then Result:=AnsiCompareText(TEntite(item1).Name,TEntite(item2).Name) else Result:=AnsiCompareText(TRelation(item1).Name,TRelation(item2).Name); if Result=0 then Result:=integer(item1)-integer(item2); end; end;

---

Si j'ai bien saisi, d'abord on compare le 2 de classe des 2 objets.
Si c'est les même, on regarde si l'objet 1 est de type Entite.
Et là, je saisi pas vraiment la suite ... :oops:
Une fois encore, on compare le nom de 2 objets mais là tu fais un transtypage de l'objet 2 sans savoir son type ...

Code:

---

Result:=AnsiCompareText(TEntite(item1).Name,TEntite(item2).Name)

---

Aussi, je cerne pas trop cette ligne :

Code:

---

if Result=0 then Result:=integer(item1)-integer(item2);

---

Resut=0 c'est pour dire que le nom de l'objet1 et identique à l'objet 2 donc on fait un result qui aura la valeur de la soustraction des pointeurs transtypés en entier ??

Je suis pas doué ... désolé ... mais comme je dis toujours, copier / coller sans comprendre, ca ne sert à rien.

Merci d'avance

Citation:

---

Envoyé par ero-sennin

Une fois encore, on compare le nom de 2 objets mais là tu fais un transtypage de l'objet 2 sans savoir son type ...

---

Si on arrive là, c'est que l'objet 2 est du même type que l'objet 1, et comme l'objet 1 est un TEntite, l'objet 2 l'est forcément aussi ;)

Citation:

---

Envoyé par ero-sennin

Resut=0 c'est pour dire que le nom de l'objet1 et identique à l'objet 2 donc on fait un result qui aura la valeur de la soustraction des pointeurs transtypés en entier ??

---

Comme il l'a expliqué, c'est juste pour que, si tu fais le tri plusieurs fois, que les objets qui ont même classe et même nom soient retriés à chaque fois dans le même ordre ;)

Merci Srjd, c'est vrai que c'était pas bien compliqué :oops:
J'avais mal interprêté le code....

Ensuite, pour ce qui est de la soustraction, j'ai bien compris que ca allait retourner soit un chiffre >0 ou <0 et j'essaierai de faire des ShowMessage pour voir de façon plus concrète ce que ça peut donner!

En tous cas, je vous remercie d'avoir éclairé ma lanterne! :king: