Classe itérateur

Une classe métier utilisée comme itérateur dans une instruction ForEach doit supportée une interface technique d'itération.

Cette interface est défini par le support des quatres méthodes suivantes :

Open	procedure Open(iMode:TEnumeratorMode);
MoveNext	function MoveNext:boolean;
GetCurrent	procedure GetCurrent(var Dest:variant);
GetIndex	function GetIndex:Integer;

Tip : Le support de l'interface est testé à l'exécution et pas à la compilation

Exemple:

Dans cet exemple la classe ProcessusB supporte l'interface itérateur :

Type
  ProcessusB = class
   fCursor : Cursor;
   fIndex: Integer;
   //IscrEnumerator
   procedure Open(iMode:TEnumeratorMode);
   function MoveNext:boolean;
   procedure GetCurrent(var Dest:variant);
   function GetIndex:Integer;
  end;
 
procedure ProcessusB.Open(iMode:TEnumeratorMode);
begin
 fIndex := -1;
end;
 
function ProcessusB.MoveNext:boolean;
begin
  if fIndex=-1 then
    begin
      fCursor.ClassName := 'ClassC';
      fCursor.Open;
    end
    else fCursor.Next;
 Result := not fCursor.Eoi;
  if not Result
     then fCursor.Close
     else fIndex := fIndex+1;
end;
 
procedure ProcessusB.GetCurrent(var Dest:variant);
begin
  Dest := fCursor.Instance;
end;
 
function ProcessusB.GetIndex:Integer;
begin
  Result := fIndex;
end;

Ce processus est utilisé par un autre processus comme itérateur :

Type
  ProcessusA = class
    procedure doProcess(inst:ClassC);
    function TestForEach:Integer;
  end;
 
procedure ProcessusA.doProcess(inst:ClassC);
begin
  withP transaction do
    begin
      inst.unEntierC := inst.unEntierC+1;
    end;
end;
 
function ProcessusA.TestForEach:Integer;
var iterator:ProcessusB; inst:ClassC; count:Integer;
begin
 iterator := ProcessusB.Create;
 foreach inst in iterator index count do
  begin
    doProcess(inst);
  end;
 Result := 1+count;
end;