Discussion :

[AlfredKr]

Bonjour,

J'ai delphi 2010.
Je sais que beaucoup ont montré comment effectuer un sort sur une list ou objectlist mais en appliquant ces solutions j'ai toujours des erreurs.
J'ai une class avec pour un des champs un énuméré et je voudrais trier en fonction de ce champ.
Une petite difficulté (si vous ne savez pas la résoudre pas de problème).
Si 2 éléments de la liste ont la même valeur énumérée on continue la comparaison sur un autre champ (string ou integer). J'ai une petite idée sur cette 2eme partie mais enfin...

Pourriez-vous me donner la solution (définition du Tcomparer et touti quanti...)

Merci beaucoup et merci d'avance

Fred

[guillemouze]

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
TItem = class
  enum: TMyEnum;
  Champ2: string;
end;
 
 
function compareTItem(i1, i2: Pointer): integer;
var
  it1, it2: TItem;
begin
  it1 := TItem(i1);  
  it2 := TItem(i2);
 
  Result := CompareValue(Ord(it1.enum), Ord(it2.enum)); //si tu veux trier dans le meme ordre qu'est l'enum
  if Result = 0 then
    Result := CompareText(it1.Champ2, it2.Champ2);
end;
 
MaList.Sort(compareTItem);

[Kaféine]

Salut,

je ferais un truc comme ça a priori:

on déclare des trucs utils

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
type
  TEnum = (eUn, eDeux, eTrois, eQuatre);
 
  TTest = class
  strict private
    FEnum: TEnum;
  public
    function ToString: string; override;
    property Enum: TEnum read FEnum write FEnum;
  end;
 
  TTestComparer = class(TComparer<TTest>)
  public
    function Compare(const Left, Right: TTest): Integer; override;
  end;
 
{ TTest }
 
function TTest.ToString: string;
begin
  case FEnum of
    eUn: Result := 'Un';
    eDeux: Result := 'Deux';
    eTrois: Result := 'Trois';
    eQuatre: Result := 'Quatre';
  end;
end;
 
{ TTestComparer }
 
function TTestComparer.Compare(const Left, Right: TTest): Integer;
var
  e1, e2: Integer;
begin
  e1 := Ord(Left.Enum);
  e2 := Ord(Right.Enum);
  if e1 = e2 then
    Result := 0
  else if e1 < e2 then
    Result := -1
  else
    Result := 1;
end;

on declare une liste de TTest en attribut de la form et biensur on la cree dans formcreate et detruit dans destroy...

Code :

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

1
2
 
  FList: TObjectList<TTest>;

on rempli la liste avec un jeu d'essai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  I: Integer;
  T: TTest;
begin
  for I := 0 to 20 do
  begin
    T := TTest.Create;
    T.Enum := TEnum(Random(3));
    FList.Add(T);
  end;
end;

on la trie:

Code :

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

1
2
3
4
5
6
7
 
var
  C: IComparer<TTest>;
begin
  C := TTestComparer.Create;
  FList.Sort(C);
end;

on enumere dans un memo pour voir le résultat

Code :

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

1
2
3
4
5
6
7
 
 var
  T: TTest;
begin
  for T in FList do
    Memo1.Lines.Add(T.ToString);
end;

[AlfredKr]

Merci beaucoup Akim (Kaféine)
J'ai testé et ça marche à merveille...

Encore merci.

Fred