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