ReciprocalRoleName (Instance)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>function ReciprocalRoleName(const iRoleListName:string):string;</source> Cette fonction retourne le nom du rôle réciproque en fonction du nom du rôl… ») |
m |
||
| Ligne 14 : | Ligne 14 : | ||
Exemple | Exemple | ||
<source lang='delphi'> | <source lang='delphi'> | ||
| − | + | //Function _CreateCursorObjetsSession(aSession:TSessionImportation):TCursor; | |
var | var | ||
vClassName : String; | vClassName : String; | ||
Version du 23 décembre 2011 à 15:16
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; 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
