Discussion :

[Guigui_]

Je voudrais trier une liste d'entier, mais je n'ai pas bien compris comment ça marchait (j'ai pas pu faire une recherche, je pense que la question a déjà été posée)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure main;
begin
ListCoupJouable:=TList.create;
...
ListCoupJouable.Sort(TriListe);
...
end;
 
 
function TForm1.TriListe(item1,item2:Pointer):Integer;
begin
  if Integer(item1)>Integer(item2) then result:=1
      else if Integer(item1)<Integer(item2) then result:=-1
      else result:=0;
end;

j'ai l'erreur suivante (sur la ligne ListCoupJouavle.Sort(TriListe)):
[Erreur] Unit1.pas(694): Types incompatibles : 'procédure normale et pointeur de méthode'

[Barbibulle]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function TriListe(item1,item2:Pointer):Integer;
begin
  if Integer(item1)>Integer(item2) then result:=1
      else if Integer(item1)<Integer(item2) then result:=-1
      else result:=0;
end;
 
procedure main;
begin
ListCoupJouable:=TList.create;
...
ListCoupJouable.Sort(TriListe);
...
end;

Ca doit marcher comme ca ...

[Guigui_]

Ca marche.

Merci.

[delphi-fan]

TList.Sort : Ca trie. Mais par ordre croissant uniquement...

A+

[Barbibulle]

TList.Sort : Ca trie. Mais par ordre croissant uniquement...

A+

C'est faux !!

En fait c'est la fonction que tu donne en paramètre qui définis l'ordre de tri.

En fait si tu fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function TriListeInverse(item1,item2:Pointer):Integer; 
begin 
  if Integer(item1)>Integer(item2) then result:=1 
      else if Integer(item1)<Integer(item2) then result:=0 
      else result:=-1; 
end; 
 
procedure main; 
begin 
ListCoupJouable:=TList.create; 
... 
ListCoupJouable.Sort(TriListeInverse); 
... 
end;

tu aura le tri inverse.