Discussion :

[NewUserDelphi]

Bonjour

Je cherche à trier une liste d objets. J ai cherché et suis tombé sur un post de 2012 ici https://www.developpez.net/forums/d1...e/#post6686405

J ai donc mis dans une unité la fonction de Paul TOTH

Code :

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

1
2
3
4
5
6
  Delta: double;
begin
  Delta := TTrade(p2).Date_Close - TTrade(p1).Date_Close;
  if Delta <> 0 then
    Delta := Delta / Abs(Delta);
  Result := Round(Delta);

J ai mon objet

Code :

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

1
2
3
4
5
6
 TTrade = class
  strict private
    FId_Open: Integer;
    FDate_Open: Integer;
    FDate_Close: Integer;
    FId_Close: Integer; ...

il est créé et parfaitement utilisable

Code :

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

Trades := TObjectList<TTrade>.Create;

Le pb est que quand je tente simplement

Code :

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

Trades.Sort(SortByValue);

j ai le message d erreur : Pas assez de parametres originaux...

Je ne comprends pas et aurait bien besoin de vos lumières, l objectif final etant de trier la liste Trades par la valeur Trade.Date_close de chaque trade.

Merci de votre aide

[SergioMaster]

Bonjour,

Pour aller à l'essentiel, essayer

Code :

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

Trades.Sort(@unite.SortByValue);

cf aide delphi
enfin, cela dépend de comment vous avez écrit la fonction dans l'unité à part

Plus en profondeur :
L'objet, quand je vois des propriétés FDate_Open,FDate_Close qui semble donc se référer à des dates et que ceux-ci sont déclaré integer, je tique même si c'est la facilité qui l'emporte


Mais je tiens à indiquer que Delphi a évolué d'autres techniques pour le tri d'objet existent. Par exemple dans ce tutoriel chapitre V-A, je vend ma prose mais comme c'est un tri sur des dates ...
Pour ce qui est des méthodes anonymes je sais qu'il y a deux ou trois petites vidéos très bien faites mais je ne remets pas le doigt dessus (elles ont longtemps été dans la rubrique publication)

[NewUserDelphi]

Merci d avoir pris le temps de me répondre.
Quand j ai posté il était tard et j ai un peu rogné le code de la fonction déclarée dans l unité Mes_Fonctions.

Code :

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

1
2
3
4
5
6
7
8
9
function SortByValue(p1, p2: Pointer): Integer;
var
  Delta: double;
begin
  Delta := TTrade(p2).Date_Close - TTrade(p1).Date_Close;
  if Delta <> 0 then
    Delta := Delta / Abs(Delta);
  Result := Round(Delta);
end;

Quand je l apelle ainsi Trades.sort(@Mes_Fonctions.SortByValue) j ai le message d erreur suivant : Aucune version surchargée de 'Sort' ne peut être appelée avec ces arguments.

Quand je declare la fonction dans mon unité principale et que je l apelle depuis cette unité avec Trades.sort(@SortByValue) j ai l erreur suivante : Variable requise.

Je ne suis absolument pas focalisé sur ce type/mode ou principe de tri, c est en cherchant 'trier un objet' que je suis arrivé là. Mon objectif final etant de pouvoir trier mon objet Trade suivant differents Date_open, Date_Close, Id_Open... selon les besoins ponctuels.
J imaginais commencer par cette fonction et l'adapter à chacun de mes besoins. Mais si tu as un autre proposition... je ne demande qu'à apprendre.

Sinon concernant les dates c est des Integer parce qu’il s agit de dates Unix, c est pas par coqueterie mais parce que les logiciels de bourse ont parfois des dates dans des formats différents, cela me permet d uniformiser le traitement.

merci

[NewUserDelphi]

J ai crée un nouveau projet avec seulement cette fonction reprise depuis l exemple du post original et là ça fonctionne parfaitement.... je n y comprends rien !