IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

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


Sujet :

Delphi

  1. #1
    Futur Membre du Club
    Homme Profil pro
    retraité
    Inscrit en
    mars 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : mars 2023
    Messages : 6
    Points : 8
    Points
    8
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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...

  2. #2
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    8 811
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2002
    Messages : 8 811
    Points : 28 669
    Points
    28 669
    Par défaut
    il n'y a rien qui cloche dans ta fonction de tri

    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
    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;
    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
    >>>>>
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  3. #3
    Futur Membre du Club
    Homme Profil pro
    retraité
    Inscrit en
    mars 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : mars 2023
    Messages : 6
    Points : 8
    Points
    8
    Par défaut
    Merci pour cette démonstration.
    Je vais donc reprendre mon code pour voir d'où cela peut bien provenir...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Python 3.X] Tri d'une liste d'objet
    Par AF_2.8 dans le forum Général Python
    Réponses: 5
    Dernier message: 10/01/2023, 21h01
  2. Tri multi-criteres sur une liste d'objets
    Par Rolf-IV dans le forum Débuter avec Java
    Réponses: 1
    Dernier message: 01/04/2009, 09h21
  3. Tri sur une liste d'objet
    Par Poussy-Puce dans le forum C#
    Réponses: 4
    Dernier message: 12/05/2008, 18h35
  4. Tri d'une liste d'objets en se basant sur leurs attributs
    Par freestyler1982 dans le forum Langage
    Réponses: 11
    Dernier message: 22/11/2007, 16h33
  5. Tri d'une liste d'objet CObList
    Par cjacquel dans le forum MFC
    Réponses: 1
    Dernier message: 13/07/2005, 14h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo