Merge (objectlist)

Version du 19 janvier 2012 à 17:04

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.

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:

Exemple:

begin
end;