FindClass (MM)

function FindClass(const iName:string; iExtension:boolean):TPackageInfo;

Cette fonction recherche une classe dans le modèle métier.

Result	Un objet réprésentant la classe.
iName	Le nom de la classe dans le modèle.
iExtension	Si true recherche aussi une extension.

Exemple

var s,stag:string; idx:Integer; rg:TRegClassInfo;
begin
  rg := ModelManager.FindClass('WFClasseA',false);
  if Assigned(rg) then
   begin
     s := ''; stag := '';
     for idx :=0 to rg.AttributeCount-1 do
     if rg.Attributes[idx].isRoleDatatype then
      begin
        s := s+stag+rg.Attributes[idx].name;
        stag := ',';
      end;
     showMessage('Rôles de la classe WFClasseA:'+s);
   end
end;

Voir aussi

• Classe métier.

— ModelManager_(code) — Développement DSM —