Refs (role)

De Wiki1000
(Différences entre les versions)
 
Ligne 15 : Ligne 15 :
  
 
Exemple
 
Exemple
 +
 
'''Utilisation comme propriété indexée'''
 
'''Utilisation comme propriété indexée'''
 
<source lang='delphi'>
 
<source lang='delphi'>

Version actuelle en date du 4 août 2009 à 09:20

property Refs[index:Integer]:TitObject;

Lecture seule

Cette propriété retourne l'objet du rôle d'index indiqué.

Result L'objet du rôle.
Index Index de l'objet

Exemple

Utilisation comme propriété indexée

var inst:WFClasseA; instC:WFClasseC; idx:Integer;
begin
  inst := WFClasseA.Find('unCode=%1','',True,['CODE-10/04/2009 09:22:48-0']);
  for idx:=0 to inst.WFClasseCList.Count-1 do
   begin
     instC := inst.WFClasseCList.Refs[idx];
   end;
end;

Utilisation comme itérateur

var inst:WFClasseA; instC:WFClasseC; 
begin
  inst := WFClasseA.Find('unCode=%1','',True,['CODE-10/04/2009 09:22:48-0']);
  foreach instC in inst.WFClasseCList do
   begin
     showMessage(instC.uneChaine);
   end;
end;

Voir aussi

Rôles (tech)Développement DSM

Outils personnels