Re-bonjour à tous,

Je poursuis dans ma quête de la compréhension des TObjectList...Ma question est:
Est-il possible de classer les éléments d'un TObjectList en fonction d'un de leur paramètre?
Par exemple classer des objets crées dynamiquement en fonction de leur tag?

J'en tenter la fonction SORT, mais je ne vois pas quoi passer en paramètre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
function Compare (item1:integer;item2:integer) : integer;
begin
  if item1 >= item2 then result := 1
  else result := -1;
end;

procedure TForm4.Button9Click(Sender: TObject);
begin
  ListObject1.Sort(@Compare(?,?);
end;
Merci bocoup pour votre aide.

@+.