Assign (Instance)

procedure Assign(anObject:TitObject; const iExcludePropList:string);

Cette procédure affecte les attributs d'une instance d'objet à cette instance.

anObject	Une instance d'objet d'une classe compatible avec cette instance.
iExcludePropList	Une liste d'attribut, séparés par des virgules, à exclure durant l'affectation

Exemple

//Procedure DupliquerDetail(const oidDDE:TOID);
Var
  vDetailEngagement : TDetailEngagement;
  vDESrc : TDetailEngagement;
begin
  // Ce code duplique un détail dd'engagement (DE)
  //
  if oidDDE = '' then Exit;
  if not Assigned(DemandeEngagement) then Exit;
 
  // Recherche l'objet DE a dupliquer.
  vDESrc := ClassManager.FindObject('TDetailEngagement', 'oid=%1','oid', false, [oidDDE]);
  if Not Assigned(vDESrc) then Exit;

  // Assure une transaction
  If ClassManager.TranCount = 0 then ClassManager.BeginTran;

  // Créer une instance de DE
  vDetailEngagement := ClassManager.CreateInstance('TDetailEngagement');

  // Affecte l'objet DE à dupliquer en excluant les attributs d'état
  vDetailEngagement.Assign(vDESrc,'estComplet,estBloque,estRefuse');

  // Ajoute le DE duppliqué à la liste des détails d'engagement.
  DemandeEngagement.DetailEngagementList.AddRef(vDetailEngagement);
end;

Voir aussi

— Objets métiers (tech) — Développement DSM —