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;