Invoke (selector)
De Wiki1000
(Différences entre les versions)
| Ligne 34 : | Ligne 34 : | ||
sel := WFClasseA.CreateSelector('','',true,[]); | sel := WFClasseA.CreateSelector('','',true,[]); | ||
sel.Invoke(ocManageTran, 'Increment', [10]); | sel.Invoke(ocManageTran, 'Increment', [10]); | ||
| − | end;</source> | + | end; |
| + | </source> | ||
| + | |||
| + | <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> | ||
| + | |||
Voir aussi : | Voir aussi : | ||
Version du 15 avril 2013 à 12:40
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 la classe du sélecteur |
| iArgs | Tableau des arguments à passer à la méthode |
Exemple :
|
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;
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;
Voir aussi :
