Classe itérateur

De Wiki1000
(Différences entre les versions)
m (Remplacement du texte — « category:Tahoe » par « Category:Version650 »)
 
Ligne 98 : Ligne 98 :
 
[[category:Objets itérateurs]]
 
[[category:Objets itérateurs]]
 
[[category:Interface itération]]
 
[[category:Interface itération]]
[[category:Tahoe]]
+
[[Category:Version650]]

Version actuelle en date du 9 avril 2013 à 10:19

Une classe métier peut être utilisée comme itérateur dans une instruction ForEach à condition de supporter une interface technique d'itération.

Cette interface est définie par les quatre méthodes suivantes :

iteOpen procedure iteOpen;
iteMoveNext function iteMoveNext:boolean;
iteGetCurrent procedure iteGetCurrent(var Dest:variant);
iteGetIndex function iteGetIndex:Integer;
Tip-20px.png 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 iteOpen;
   function iteMoveNext:boolean;
   procedure iteGetCurrent(var Dest:variant);
   function iteGetIndex:Integer;
  end;
 
procedure ProcessusB.iteOpen;
begin
 fIndex := -1;
end;
 
function ProcessusB.iteMoveNext: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.iteGetCurrent(var Dest:variant);
begin
  Dest := fCursor.Instance;
end;
 
function ProcessusB.iteGetIndex: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;
Outils personnels