CreateCursorWhere (class)

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

— Classes métiers (tech) — Développement DSM —