https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=RoleClassName_%28Instance%29 2026-05-15T15:55:44Z Historique pour cette page sur le wiki MediaWiki 1.18.6 https://frp.sage.fr/wiki1000/index.php?title=RoleClassName_(Instance)&diff=909&oldid=prev 2009-07-25T08:50:57Z

<p>Nouvelle page : &lt;source lang=&#039;delphi&#039;&gt;function RoleClassName(const iRoleName:string):string;&lt;/source&gt; Cette fonction retourne la classe référencée par un rôle. {|class=&quot;wikitable&quot; |- |Result |...</p> <p><b>Nouvelle page</b></p><div>&lt;source lang='delphi'&gt;function RoleClassName(const iRoleName:string):string;&lt;/source&gt;<br /> <br /> Cette fonction retourne la classe référencée par un rôle.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |Result<br /> |Le nom de la classe référencée par le rôle.<br /> |-<br /> |iRoleName<br /> |Un nom de rôle.<br /> |}<br /> <br /> Exemple<br /> &lt;source lang='delphi'&gt;<br /> {Procedure _AffecterRole(aObjetDest:TitObject; aRoleName:String; aRoleSuffixe:String; aValeurRecherche:String);}<br /> var<br /> vClassName : String;<br /> vSearchObj : TitObject;<br /> begin<br /> // Ce code affecte dynamiquement un rôle référence <br /> //<br /> // Retrouve la classe référencée par le rôle<br /> vClassName := aObjetDest.RoleClassName(aRoleName);<br /> <br /> // Recherche l'objet de la classe du rôle a affecté suivant les critères<br /> vSearchObj := ClassManager.FindObject(vClassName,'('+aRoleSuffixe+'=%1)','',True,[aValeurRecherche]);<br /> <br /> // Affecte l'objet retrouvé au rôle.<br /> if Assigned(vSearchObj) then aObjetDest.PropAsVariant('oid'+aRoleName) := vSearchObj.oid;<br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi<br /> <br /> <br /> {{Footer|Objets métiers (tech)}}<br /> [[category:Objets métiers]]</div>

Syfre