ReciprocalRoleName (Instance)
De Wiki1000
(Différences entre les versions)
m |
m |
||
| Ligne 17 : | Ligne 17 : | ||
var | var | ||
vClassName : String; | vClassName : String; | ||
| + | vCursor : TCursor; | ||
begin | begin | ||
| − | |||
//Recherche du nom de la classe enfant | //Recherche du nom de la classe enfant | ||
vClassName := aSession.RoleClassName('ImportDonneeList'); | vClassName := aSession.RoleClassName('ImportDonneeList'); | ||
Version du 23 décembre 2011 à 15:17
function ReciprocalRoleName(const iRoleListName:string):string;
Cette fonction retourne le nom du rôle réciproque en fonction du nom du rôle liste
| Result | Le nom du rôle réciproque de la classe référencée par le rôle. |
| iRoleListName | Un nom de rôle liste. |
Exemple
//Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor; var vClassName : String; vCursor : TCursor; begin //Recherche du nom de la classe enfant vClassName := aSession.RoleClassName('ImportDonneeList'); //Créer le curseur vCursor := ClassManager.CreateCursor(vCursorClass); //En déduire l'attribut du rôle réciproque, dans notre cas oidSessionImportation vCursor.Where := 'oid%' + aSession.ReciprocalRoleName(aRoleListName) +'=%1'; vCursor.ArgCount := 1; vCursor.Args[1] := aSession.instanceoid; vCursor.Nolock := True; vCursor.Descendants := True; result := vCursor; end;
Voir aussi
