Discussion :

[nikoko34]

Bonjour.

Je viens de migrer une appli avec plein de classes de type TObjectList (unité Contnrs) vers TObjectDictionary<integer, TMyObject> (unité Generics.Collections)
Je ne regrette pas cette migration sur le plan des performances, un traitement récursif avec 5000 objets qui durait 1m30 s'exécute maintenant en 2s mais...

1) Problème numéro 1 : je me retrouve avec plein de conseils et warnings sur ces deux unités generics (qui me font dire que mon code n'est pas parfait mais les références ne sont pas sur mes unités).



Le fichier generic.dictionaries.inc n'est pas accessible bien que j'aie vérifié qu'il se trouve à plusieurs endroits dans les répertoires liés au package

2) Problème numéro 2. Dans quelques rares cas, j'ai besoin de trier une liste.
J'utilise donc à la place d'un TObjectDictionary un un TList<TObject> et je souhaite trier cette liste selon une propriété de l'objet
Avant, pour les tList, il suffisait de faire quelque chose de ce type : self.Sort(@ComparePtrPropriété); avec (de façon schématique)

Code :

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

1
2
3
4
5
6
7
function ComparePtrPropriété(Objet1, Objet2 : Pointer) : integer;
begin
if tObjet(Objet1).Propriété<tObjet(Objet2).Propriété then
  result := -1
else if tObjet(Objet1).Propriété>tObjet(Objet2).Propriété then
  result := 1 
else result := 0

On trouve quantité d'exemples sur le net avec cette ancienne formulation mais pas d'exemples simples avec les TList de cette unité Generics, donc si quelqu'un a eu à faire la même chose, je suis preneur d'un exemple !

[nikoko34]

Pour le tri, solution trouvée grace à des forums anglophones. Je la partage si ça peut aider d'autres :
Remplacer

Code :

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

function ComparePtrPropriété(Objet1, Objet2 : Pointer) : integer;

par

Code :

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

function ComparePtrPropriété(constref Objet1, Objet2 : TMonObjet) : integer;

L'appel se fait par

Code :

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

self.Sort(specialize TComparer<TMonObjet>.construct(@ComparePtrPropriété));

C'est pas quand même très intuitif, tout ça...

Pour les résultats de compilation, je suis allé chercher le fichier .inc là où il se trouvait mais je suis preneur d'une astuce pour savoir si on peut désactiver ces messages (pas à l'échelle du projet mais de l'unité) ou si des personnes ont pu corriger leur code pour réduire ces avertissements et conseils

[nikoko34]

Pour le pb n°1, clic droit sur le message exotique affiché dans l'onglet Messages lors de la compilation puis menu 'Cacher avec l'option du projet -vm' suivi d'un chiffre.
On enlève uniquement la catégorie du message en question (avec le risque qu'on ne les voit plus sur son propre code) mais ça fera l'affaire...

[der§en]

Je ne connaissait pas le mot : constref, il fait quoi ?

[nikoko34]

Moi non plus...
Je me suis contenté de reprendre un post mais ce lien : https://wiki.freepascal.org/Constref donne plus d'information.
On connaît le passage par valeur et par référence, je pense que c'est un équivalent au niveau des constantes.