Intersect (objectlist)

De Wiki1000
Version du 19 janvier 2012 à 16:08 par Syfre (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
procedure Intersect(ls:TObjectList; const iExpression:string; const iArgs:Variant);

Cette procédure conserve les objets qui sont présents dans les deux listes et dont l'évaluation de la condition donne le même résultat.

Si la condition est vide les objets communs sont conservés.

ls Liste avec laquelle réaliser l'intersection.
iExpression Expression objet vérifiée par les objets à retirer.
iArgs Paramètres des expressions objets.

pseudo-code :

   For each self.items[]
     if not exists ls.items[] where
        self.items[].Evaluate = ls2.items[].Evaluate
      then Remove self.items[]

Exemple:

begin
end;

Voir aussi:

Listes d'objets (tech)Développement DSM

Outils personnels