Topic (TStereotypeClassQueue)

class function Topic(const iTopic:string):TQueueEnumerator;

Cette fonction retourne un énumérateur des objets disponibles sur un sujet.

Result	Un type énuméreteur
iTopic	Nom de sujet demandé.

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');

  S := ''; stag := '';
  foreach obj in MyQueue.Topic('') 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

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