ReleaseIndex (role)

procedure ReleaseIndex(iIndex:Integer);

Cette procédure relâche la référence sur l'instance tenue par le rôle d'index indiqué.

iIndex

Index de l'instance a relâcher

Note : Relâcher la référence ne retire pas l'objet du rôle, de plus le Count du rôle n'est pas affecté.

Exemple

{Procedure _historiserLot(aLot:TLot);}
var i:Integer; vPiece:TPiece;
begin
  for i := 0 to aLot.PiecesList.count-1 do
  begin
    vPiece := aLot.PiecesList.Refs[i];
    if not vPiece.historique then
    begin
      vPiece.DateHistorique:=Date;
      vPiece.historique:=True;
      aLot.PiecesList.ReleaseIndex(i);
      ClassManager.BatchLongTran;
    end 
    else aLot.PiecesList.ReleaseIndex(i);
  end;
end;

Voir aussi

• ReleaseInstances

— Rôles (tech) — Développement DSM —