Discussion :

[PadawanDuDelphi]

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.

@+.

[e-ric]

Tu ne donne pas de paramètres

Code :

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

1
2
3
4
5
 
procedure TForm4.Button9Click(Sender: TObject);
begin
  ListObject1.Sort(@Compare);
end;

et ça devrait marcher


cdlt

e-ric

[anapurna]

salut

il faut faire de cette facon :

Code :

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

1
2
3
4
5
6
7
8
9
 
function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  List1.Sort(@CompareText);
end;

[Linkin]

Et ne pas se tromper en recopiant ^^:

Code :

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

  List1.Sort(@CompareNames);

au lieu de

Code :

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

  List1.Sort(@CompareText);

[PadawanDuDelphi]

Merci pour tout, ma fonction de tri fonctionne nickel...

@+.

[anapurna]

salut

argh je suis decouvert

@+ Phil

[PadawanDuDelphi]

Je suis sûr que tu l'as fais exprès pour forcer les néo-développeur comme moi à réfléchir...

Je reviens sur le problème, car je n'arrive pas à finaliser ma fonction Compare, et comme un bout de code vaut mieux que de longues explications:

Code :

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

1
2
3
4
5
6
function Compare (Item1, Item2: TComponent ) : integer;
begin
   if (Item1.Tag > Item2.Tag) then Result := 1;
   if (Item1.Tag = Item2.Tag) then Result := 0;
   if (Item1.Tag < Item2.Tag) then Result := -1;
end;

Le problème c'est que je lorsque deux de mes items sont identiques, il y a une inversion de ces items dans mon tri (alors que je le souhaite pas puisque je m'en sert pour l'affichage à l'écran...)

Quelqu'un aurait-il une solution?

Merci.

@+.

[Linkin]

Cen'est pas dû au fait que le TList utilise comme algo le QuickSort (dixit l'aide)?

[PadawanDuDelphi]

Je viens de lire un article, et il semblerait bien que ce soit le problème...
Je vois pas comment m'en sortir, à moins d'utiliser encore un autre champs genre le hint pour repérer la position...
Ou de faire ma propre fonction de tri.