Topic (TStereotypeClassQueue)

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

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

Result Un type énumérateur
iTopic Nom de sujet demandé.
Tip-20px.png 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

Outils personnels