Default enumerator (TStereotypeClassQueue)
De Wiki1000
class function :TQueueEnumerator;
Les classes file d'attente supporte une méthode de classe par défaut renvoyant un énumérateur.
Result | Un type énumérateur |
Tip : L'énumération est ordonnée suivant la valeur de queueID, un élément retourné est le suivant de l'élément précédent. |
Exemple :
procedure MyClass.TestQueueEnumerator; var sel:TSelector; obj:MyQueue; inst:WFClasseA; S,stag:string; begin sel := WFClasseA.CreateSelector('unEntier>%1','',true,[10]); sel.InQueue('MyQueue','wfclassea/@oid'); // Use default enumeration S := ''; stag := ''; foreach obj in MyQueue do begin inst := obj.queueRef as WFClasseA; if Assigned(inst) then try if inst.unEntier=21 then raise Exception.Create('check error'); // S := S+stag+inst.unCode; stag := ','; // Check to test requeue // delete this queue object obj.DeleteThisObject; except // on error requeue the object with the same topic // Correct because the enumeration is ordered on queueID obj.ReQueue(''); end; end; showMessage(S); end;
Voir aussi