« Invoke (selector) » : différence entre les versions

De Wiki1000
Aucun résumé des modifications
Aucun résumé des modifications
 
(Une version intermédiaire par le même utilisateur non affichée)
Ligne 12 : Ligne 12 :
|-
|-
|iMethodName
|iMethodName
|Méthode la classe du sélecteur
|Méthode de la classe du sélecteur
|-
|-
|iArgs
|iArgs
Ligne 19 : Ligne 19 :


Exemple :
Exemple :
{{tip|Dans cet exemple la transaction est géré par la sélection.}}
<source lang='delphi'>
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;
</source>


<source lang='delphi'>
<source lang='delphi'>
Ligne 61 : Ligne 44 :
end;
end;
</source>
</source>
{{tip|Dans cet exemple la transaction est géré par la sélection.}}
<source lang='delphi'>
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;
</source>





Dernière version du 1 avril 2014 à 09:49

<source lang='delphi'>function Invoke(iCursorMode:TCursorMode; const iMethodName:string; iArgs:Array of variant):Integer;</source>

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 :

<source lang='delphi'>

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; </source>

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

<source lang='delphi'>

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; </source>


Voir aussi :

{{#if:Selecteur (tech)|

{{#if:Selecteur (tech)|— Selecteur (tech) |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}