Invoke (selector)

function Invoke(iCursorMode:TCursorMode; const iMethodName:string; iArgs:Array of variant):Integer;

Cette fonction invoque la méthode iMethodName de la classe du sélecteur pour chaque objet de la sélection.

Result	Le nombre d'objet sur lesquels la méthode a été exécuté.
iCursorMode	Le mode d'exécution du curseur.
iMethodName	Méthode de la classe du sélecteur
iArgs	Tableau des arguments à passer à la méthode

Exemple :

Procedure WFClasseA.Populate(ls:TStringList);
begin
  ls.Add(unCode);
end

procedure TestSelector.TestInvoke;
var sel:TSelector; S,SS:string; stag:string; ls:TStringList;
begin
  sel := WFClasseA.CreateSelector('','',true,[]);

  ls := TStringList.Create;
  sel.Invoke(ocSelect, 'Populate', [ls]);

  S := ''; stag := '';
  foreach SS in  ls do
   begin
     S := S+stag+SS;
     stag := ',';
   end;
  ShowMessage(S);
end;

Tip : Dans cet exemple la transaction est géré par la sélection.

Procedure WFClasseA.Increment(aValue:Integer);
begin
  unEntier := unEntier+aValue;
end

procedure TestSelector.TestInvoke;
var sel:TSelector; 
begin
  sel := WFClasseA.CreateSelector('','',true,[]);
  sel.Invoke(ocManageTran, 'Increment', [10]);
end;

Voir aussi :

Mode d'exécution d'un curseur

— Selecteur (tech) — Développement DSM —