AddListWhere (objectlist)

{{#images:version650-32x32.png|stock}} <source lang='delphi'>procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source>

Cette procédure ajoute les objets de la liste passée en paramètre qui vérifient une expression et qui ne sont pas déjà présent dans la liste.

ls	Liste a ajouter.
iWhere	Expression objet retournant le critère d'ajout.
iArgs	Paramètres des expressions objets.

pseudo-code :

  For each ls.items[]
    if ls.Items[].Evaluate() and
       not (exists self.items[] where self.Items[].InstanceOID=ls.Items[].InstanceOID)
    then Add ls.items[]

Voir aussi:

Merge

Exemple: <source lang='delphi'> begin end; </source>

{{#if:Listes d'objets (tech)|

{{#if:Listes d'objets (tech)|— Listes d'objets (tech) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}