CreateCursorWhere (class)
De Wiki1000
(Différences entre les versions)
| Ligne 23 : | Ligne 23 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| + | procedure fillThisStringList(ls:TStringList); | ||
| + | var inst:WFClasseA; cursor:WFClasseACursor; count:Integer; | ||
begin | begin | ||
| + | Cursor := WFClasseA.CreateCursorWhere('','',true,['A',1]); | ||
| + | foreach inst in cursor index count do | ||
| + | begin | ||
| + | ls.AddObject(inst.Caption,inst); | ||
| + | end; | ||
end; | end; | ||
</source> | </source> | ||
Version actuelle en date du 11 août 2009 à 08:19
constructor CreateCursorWhere(const iWhere,iOrderBy:string; iDescendants:boolean; const iArgs:Array of variant):TdbCursor;
Cette fonction crée un curseur d'instance de la classe dans la base de données par défaut vérifiant une expression.
| Result | Un curseur d'instance de la classe. |
| iWhere | Expression objet. |
| iOrderBy | Ordre de trie. |
| iDescendants | Inclure les classes descendantes. |
| iArgs | Tableau des arguments de l'expression. |
Exemple
procedure fillThisStringList(ls:TStringList); var inst:WFClasseA; cursor:WFClasseACursor; count:Integer; begin Cursor := WFClasseA.CreateCursorWhere('','',true,['A',1]); foreach inst in cursor index count do begin ls.AddObject(inst.Caption,inst); end; end;
Voir aussi
