AddListWhere (objectlist)
De Wiki1000
(Différences entre les versions)
Syfre (discuter | contributions)
(Page créée avec « {{tahoe}} <source lang='delphi'>procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source> Cette procédure ajoute les objets de la list… »)
Modification suivante →
(Page créée avec « {{tahoe}} <source lang='delphi'>procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source> Cette procédure ajoute les objets de la list… »)
Modification suivante →
Version du 19 janvier 2012 à 17:30
procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);
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:
Exemple:
begin end;
Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |