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 : 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