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

Classes métiers (tech)Développement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels