« AddListWhere (objectlist) » : différence entre les versions
(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… ») |
m (Remplacement du texte — « category:Tahoe » par « Category:Version650 ») |
||
| (Une version intermédiaire par le même utilisateur non affichée) | |||
| Ligne 1 : | Ligne 1 : | ||
{{ | {{Version650}} | ||
<source lang='delphi'>procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source> | <source lang='delphi'>procedure AddListWhere(ls:TObjectList; const iExpression:string; const iArgs:Variant);</source> | ||
| Ligne 38 : | Ligne 38 : | ||
{{Footer|Listes d'objets (tech)}} | {{Footer|Listes d'objets (tech)}} | ||
[[ | [[Category:Version650]] | ||
[[category:Listes d'objets]] | [[category:Listes d'objets]] | ||
Dernière version du 9 avril 2013 à 09:19
{{#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:
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 —
}}