RoleClassName (Instance)

<source lang='delphi'>function RoleClassName(const iRoleName:string):string;</source>

Cette fonction retourne la classe référencée par un rôle.

Result	Le nom de la classe référencée par le rôle.
iRoleName	Un nom de rôle.

Exemple <source lang='delphi'> {Procedure _AffecterRole(aObjetDest:TitObject; aRoleName:String; aRoleSuffixe:String; aValeurRecherche:String);} var

 vClassName : String;
 vSearchObj : TitObject;

begin

 // Ce code affecte dynamiquement un rôle référence 
 //
 // Retrouve la classe référencée par le rôle
 vClassName := aObjetDest.RoleClassName(aRoleName);
 
 // Recherche l'objet de la classe du rôle a affecté suivant les critères
 vSearchObj := ClassManager.FindObject(vClassName,'('+aRoleSuffixe+'=%1)',,True,[aValeurRecherche]);

 // Affecte l'objet retrouvé au rôle.
 if Assigned(vSearchObj) then aObjetDest.PropAsVariant('oid'+aRoleName) := vSearchObj.oid;

end; </source>

Voir aussi

{{#if:Objets métiers (tech)|

{{#if:Objets métiers (tech)|— Objets métiers (tech) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}