Procédure d'initialisation de paquet (MM)

Après chargement du modèle de l'application le framework exécute une procédure d'initialisation

procedure TRegister<Nom_du_paquet>.Initialize;

pour chaque paquet.

Tip : Le code de ces procédures doit être exécutable plusieurs fois, si vous créez des objets assurez vous avant qu'ils n'existent pas déjà.

Exemple

procedure TRegisterMyPackage.Initialize; 
begin
var
  vContexte   :  TContextePoids;
begin
  ClassManager.BeginTran;
  try
    vContexte := ClassManager.FindSingleton('TContextePoids');
    if not Assigned(vContexte) then
    begin
      vContexte := ClassManager.CreateInstance('TContextePoids');
      vContexte.Caption := 'ContextePoids';
    end;
 
    ....
 
    ClassManager.Commit;
  except
    ClassManager.RollBack;
  end;
end;

Voir aussi :

• Procédure de synchronisation de paquet

— ModelManager_(code) — Développement DSM —