Merge (objectlist)

procedure Merge(ls:TObjectList; const iExpression:string; const iArgs:Variant);

Cette procédure ajoute les objets de la liste passée en paramètre pour lesquels il n'existe pas déjà un objet dans la liste retournant la même valeur pour l'expression.

Si l'expression est vide les objets qui ne sont pas déjà présent sont ajoutés.

ls	Liste avec laquelle réaliser la fusion.
iWhere	Expression objet retournant le critère d'ajout.
iArgs	Paramètres des expressions objets.

pseudo-code avec expression :

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

pseudo-code sans expression :

  For each ls.items[]
    if not exists self.items[] where
       ls.items[].InstanceOID = self.items[].InstanceOID
    then Add ls.items[]

Voir aussi:

• Intersect

Exemple:

begin
end;

— Listes d'objets (tech) — Développement DSM —