Intersect (objectlist)

De Wiki1000

(Différences entre les versions)

Version actuelle en date du 19 janvier 2012 à 17:08

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:

Whos here now: Members 0 Guests 1 Bots & Crawlers 0

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>procedure Intersect(ls:TObjectList; const iWhere:string; const iArgs:Variant);</source>
+<source lang='delphi'>procedure Intersect(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source>
 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.
@@ Ligne 10 : / Ligne 10 : @@
 |Liste avec laquelle réaliser l'intersection.
 |-
-|iWhere
+|iExpression
 |Expression objet vérifiée par les objets à retirer.
 |-
@@ Ligne 16 : / Ligne 16 : @@
 |Paramètres des expressions objets.
 |}
+'''pseudo-code :'''
+<pre>
+   For each self.items[]
+     if not exists ls.items[] where
+        self.items[].Evaluate = ls2.items[].Evaluate
+      then Remove self.items[]
+</pre>
 Exemple:
 <source lang='delphi'>
 begin
@@ Ligne 24 : / Ligne 33 : @@
 Voir aussi:
+* [[Merge (objectlist)|Merge]]
 {{Footer|Listes d'objets (tech)}}
 [[category:Listes d'objets]]