Discussion :

[ero-sennin]

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 :

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

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

[ero-sennin]

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

Merci d'avance

[Paul TOTH]

Code :

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

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

[ero-sennin]

Merci encore tothpaul !

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

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 :

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

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

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

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

Aussi, je cerne pas trop cette ligne :

Code :

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

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

[sjrd]

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

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

[ero-sennin]

Merci Srjd, c'est vrai que c'était pas bien compliqué
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!