Méthode sort d'un TObjectList

Version imprimable

Bonjour,
je suis débutant, j'aimerais améliorer ma méthode de trie de mon TObjectList
en vous remercient d'avance,
voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
function compare(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;
 
procedure TForm1.Button1Click(Sender: TObject);var
  Liste : TListeDeTrucs;
  i : integer;
begin
 Liste := TListeDeTrucs.Create(true);
 Liste.Add(TTruc.Create('A'));
Liste.Add(TTruc.Create('C'));
Liste.Add(TTruc.Create('D'));
Liste.Add(TTruc.Create('B'));
Liste.Sort(@compare);
  for i := 0 to Liste.count - 1 do
   begin 
    showMessage(Liste.items[i].libelle);
   end;
  Liste.Free;
end;

le résultat:
D,B,A,C
alors, que je voudrais A,B,C,D
merci d'avance

02/11/2017, 05h47
free07

Bonjour,

Effectivement, dans ta fonction Compare tu ne fais pas la comparaison sur la propriété Libelle mais sur la propriété ClassName de l'objet.

( ClassName renvoie une chaine de caractère indiquant le type de l'objet )

Code:

1
2
3
4
5
6
7
8
 
function compare(item1, item2 : pointer) : integer;
var
  truc1: TTruc; absolute item1;
  truc2: TTruc; absolute item2;
begin
  Result := CompareText(truc1.Libelle, truc2.Libelle);
end;

02/11/2017, 19h49
eric_de_bretagne

remerciements

Bonsoir,
Un grand merci pour vos réponses,
merci Paul THOTH, pour votre exemple, je vais le mettre en place.
Je m'y étais très mal pris , car, j'avais essayé une fonction de ce même genre.
Un grand merci
Cordialement

On peut directement typer les arguments :

Code:

1
2
3
4
function Compare(Truc1, Truc2 : TTruc) : integer;
begin
  Result := CompareText(Truc1.Libelle, Truc2.Libelle);
end;

04/11/2017, 09h55
Paul TOTH
Citation:
Envoyé par Andnotor

On peut directement typer les arguments :

Code:

1 2 3 4 function Compare(Truc1, Truc2 : TTruc) : integer; begin Result := CompareText(Truc1.Libelle, Truc2.Libelle); end;
tu n'as pas l'erreur E2010 Types incompatibles : 'Pointer' et 'TTruc' ? lors de l'appel à TList.Sort(Compare) ?

Non, pas d'erreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
type
  TProc = procedure(p :pointer);
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure CallProc(aProc :TProc);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Proc(aForm: TCustomForm);
begin
  aForm.Caption := 'Andnotor';
end;
 
procedure TForm1.CallProc(aProc: TProc);
begin
  aProc(Self);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  CallProc(@Proc);
end;

05/11/2017, 01h29
Paul TOTH

ok, en ajoutant @ devant le nom de la fonction tu peux passer ce que tu veux (avec $T- ce qui est par défaut) mais du coup tu peux utiliser effectivement n'importe quoi, même une variable si tu veux...je ne recommande pas cette approche ;)
05/11/2017, 10h09
Andnotor
Je te rejoins, c'est sûr que se passer du contrôle de type doit être fait avec une grande prudence.

Cela dit, le fait que TObjectList.Sort n'ait pas été surchargé est surprenant du fait justement de l'incohérence des arguments. Déclarer des pointeurs sur TList.Sort est logique mais pas sur TObjectList.Sort qui sont effectivement des TObject.
A la première lecture, je me suis d'ailleurs dis que tu t'étais trompé :
Code:

1 2 3 4 function compare(item1, item2 : pointer) : integer; var truc1: PTruc; absolute item1; truc2: PTruc; absolute item2;
J'ai pris un raccourci mais il y en a aussi dans le code original ;)
05/11/2017, 10h35
Paul TOTH

il y a des choses plus évoluées maintenant comme IComparer ou une fonction anonyme.

ceci dit je suppose que TTruc est une classe, donc c'est bien des TTruc et non des PTruc qu'il faut utiliser ;)
05/11/2017, 15h11
Andnotor

Citation:

Envoyé par Paul TOTH

ceci dit je suppose que TTruc est une classe, donc c'est bien des TTruc et non des PTruc qu'il faut utiliser ;)

C'est ça, une supposition, logique sur TObjectList mais toujours qu'une supposition. Il n'y aurait aucune ambiguïté si TObject était utilisé.
08/11/2017, 14h20
eric_de_bretagne

Remerciements

Bonjour,
Merci à tous pour votre aide,
J'ai résolu mon problème,
Discussion résolue
cordialement à tous et bon codding