J'ai un soucis pour faire fonctionner le tri alphabétique sur une liste générique de couple de chaines de caractères.
Je pense que mon soucis est dans la méthode de comparaison que je passe au constructeur de la liste.
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
16
17
18
19
20
21
22
23
24 type TMesRecords= record Chaine1: String; Chaine2: String; end; TListeMesRecords = class private FListeMesRecords : TList<TMesRecords>; public constructor Create; end; implementation constructor TListeMesRecords .Create; begin FListeFamIso := TList<TMesRecords>.Create(TDelegatedComparer<TMesRecords>.Create( function(const Left, Right: TMesRecords): Integer begin result := CompareText(Left.Chaine1, Right.Chaine1) or CompareText(Left.Chaine2, Right.Chaine2); end)); end;
Partager