Mon tri d'une liste d'objets me pose problème

Version imprimable

18/03/2023, 17h08
DarwinTheBeagle

Mon tri d'une liste d'objets me pose problème
Bonjour
J ai une liste d'objets TTtrade appelée Trades.
Chaque Trade est composé de Trade.date_open (TDatetime) et une Trade.trades_suite (int).
Je trie cette liste par ordre chronologique sur Trade.Date_Open.
Avant le tri ma liste d objets s affiche correctement ( les dates sont dans l ordre d insertion ).
Après le tri elle s'affiche par ordre chronologique ( le tri a fonctionné correctement) mais touts les trades[i].trades_suite sont affichés à 1, la valeur du premier enregistrement.
Je débute dons je n ai peut être pas assimilé un truc dans le tri comme par exemple de devoir permuter manuellement toutes les propriétés.

Mon tri :
Code:

1 2 3 4 5 trades.Sort(TComparer<TTrade>.Construct( function(const Left, Right: TTrade): Integer begin Result := comparedatetime(Left.Date_Open, Right.Date_Open); end));
J ai raté quoi ?
Si vous avez des exemples à me communique pour que j apprenne le tri, je prends.
Merci de votre aide et de vos conseils...

il n'y a rien qui cloche dans ta fonction de tri

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
uses
  System.DateUtils,
  System.Generics.Collections,
  System.Generics.Defaults;
 
type
  TTrade = class
    Date_Open: TDateTime;
    trades_suite: Integer;
    constructor Create(Date: TDateTime; Suite: Integer);
  end;
 
  TTrades = class(TObjectList<TTrade>)
    procedure Show(Lines: TStrings);
  end;
 
constructor TTrade.Create(Date: TDateTime; Suite: Integer);
begin
  Date_Open := Date;
  trades_suite := Suite;
end;
 
procedure TTrades.Show(Lines: TStrings);
begin
  Lines.Add('<<<<<');
  for var T in Self do
    Lines.Add(DateTimeToSTr(T.Date_Open) + ' => ' + T.trades_suite.ToString);
  Lines.Add('>>>>>');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  var trades := TTrades.Create;
 
  trades.Add(TTrade.Create(Now, 1));
  trades.Add(TTrade.Create(IncDay(Now, -1), 2));
  trades.Add(TTrade.Create(IncDay(Now, -2), 3));
 
  trades.Show(Memo1.Lines);
 
  trades.Sort(TComparer<TTrade>.Construct(
     function(const Left, Right: TTrade): Integer
     begin
       Result := CompareDateTime(Left.Date_Open, Right.Date_Open);
     end
  ));
 
  trades.Show(Memo1.Lines);
end;

Citation:

Memo1
<<<<<
18/03/2023 23:09:12 => 1
17/03/2023 23:09:12 => 2
16/03/2023 23:09:12 => 3
>>>>>
<<<<<
16/03/2023 23:09:12 => 3
17/03/2023 23:09:12 => 2
18/03/2023 23:09:12 => 1
>>>>>

19/03/2023, 20h15
DarwinTheBeagle

Merci pour cette démonstration.
Je vais donc reprendre mon code pour voir d'où cela peut bien provenir...