Default enumerator (TStereotypeClassQueue)

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.

Tip : Cette syntaxe est équivalent à l'utilisation de Topic().

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

• Enumérateur sur un sujet

— Classe_file_d'attente_(stereotype) — Développement DSM —